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MULTI MEDIA DIAGNOSTIC LOADER 
(MDL) 

1. PROGRAM TITLE 

Multi Media Diagnostic Loader (MDL) 

06-176F01 16 Bit Processors 
06-176F02 32 Bit Processors 

2. PURPOSE OF THE PROGRAM 

The MDL facilitates program retrieval from bulk storage media 
created using the Multi-Media Generator (06-177) . It is an 
integral part of all INTERDATA Multi-Media Diagnostic Packages. 

3. MINIMUM HARDWARE REQUIREMENTS 

.Processor - Any 16-bit processor with 24KB of memory. 

or 

Any 32-bit processor with 32KB of memory. 

.Display Panel 

.Input Device - Mag Tape 9-Track (800 or 1600 BPI) or Intertape 

or 

2.5 MB or 10 MB disc with Selector Channel or 
67 MB or 256 MB disc with Selector Channel. 

3.1 Optional Output Devices 

.Teletype or Carousel 3 on Current Loop Interface 

.CRT on PASLA (FDPX) or 

.Line Printer or 

.Carousel 3 00 on PASLA (FDPX) 

.CRT, TTY, or Carousel on System Terminal Controller 

3.2 Optional Boot Loading Devices 

.Teletype or 

.High Speed Paper Tape Reader (HSPTR) or 

.Carousel 35 with Paper Tape Reader 

NOTE 

The boot loading device option is only 
applicable with disc input. 



4 . :REQUIREMENTS of the MMDL SYSTEM 

The Device Definition Table, memory locations X'78' through X'7E', 
must be set up as indicated in the following table. 
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DEVICE DEFINITION TABLE 



INPUT 
DEVICE 


X'78 


MEMORY LOCATION 
X • 7A X ' 7C 


X'7E 


Mag Tape or 
Intertape 


XXAl 


0000 


DOSS 


OOLL 


Disc 


*1399 
**0294 


DDTT 


cess 


OOLL 



Where: XX = the Mag Tape or Intertape device address, 
X'7A' must be set to X'OOOO'. 

CC = the disc controller address. 

TT = 31 for a 2,5 MB disc 
33 for a 10 MB disc 

35 for a 67 MB disc 

36 for a 256 MB disc 



Location 



DD = the disc device address 
SS 



LL = 



the SELCH address (must be if the mag tape is not 
on a SELCH) 

(the Loader Indicator) 00 = Retrieve the 16-bit loader 

01 = Retrieve the 32-bit loader 



* If the Disc will be boot loaded from HSPTR 
** If the Disc will be boot loaded from the TTY 

5. LOADING 

The two MDL's are the first programs on all Multi Media Diagnostic 
Packages. Follow the directions below for the type of media being 
used. 

5.1 Mag Tape/Cassette Loading 

To load the required MDL from the Mag Tape/Cassette Multi-Media 
Diagnostic Package perform the following steps. 

1. Have the device "On-Line" , at "Load Point" and 
Write Protected. 

2. Enter the X'50' sequence shown in 5.3. 

3. Set up the Device Definition Table as described in 
Section 4 . 

4. Execute at address X'30'. The MDL will be loaded 
into memory. 
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5. When the processor halts, observe the display panel. 
If X'EE' is displayed, the load resulted in parity 
error. Return to Step 2. If X'FFFF' is displayed 
MDL is awaiting data input. Refer to Section 6 for 
Operating Procedures. 

5.2 Disc Boot Loading 

To boot load the desired MDL from a disc requires the use of the 
Multi-Media Diagnostic Common Disc Boot Loader 06-176F03 (MDCBL) . 
The loader can be entered with the MDCBL paper tape included in the 
Multi-Media Diagnostic Package, or can be manually entered. 



06-176F03) 



5.2.1 Boot Loading the Disc with the MDCBL Paper Tape 



1. Have the Disc "Ready". 

2. Enter the X'50' sequence as shown in 5.3. 

3. Set up the Device Definition Table as described 
in Section 4. 

4. Load the MDCBL paper tape in the reader. 

5. Execute at address X'30'. 

6. When the processor halts, observe the display panel. 
If X'EE' is displayed, the load resulted in a parity 
error. Restart at Step 2. If X'FFFF' is displayed, MDL 
is awaiting input data. Refer to Section 6 for the 
Operating Procedures. 

5.2.2 Boot Loading the Disc Without the Paper Tape . 

1. (Manually) load the MDCBL shown in the 06-176F03 
listing. Start at location X'lOO'. 

2. Set up the Device Definition Table as described in 
Section 4 . 

3. Execute at X'lOO'. 



4. When the processor halts, observe the display panel. 
If X'EE' is displayed, the load resulted in a parity 
error. Repeat at Step 3. if X'FFFF' is displayed, 
MDL is awaiting input data. Refer to Section 6 for 
the Operating Procedures. 

NOTE: Series 16 and Series 3200 processors do not have display 

hardware. All references to the display refer to the system 
console for these processors. Any reference to entering data 
from the display is now from the system console. Run/EXECUTE 
is replaced by CR. An * indicates that the program is ready 
for input. 



B06-176M95A15 R02 6/79 



5.3 X'50' Sequence 
Manually enter the X'50' sequence shown as follows, into memory. 



LOCATION 


CONTENTS 


X'30' 


X'OOOO' 


X'32' 


X'OOOO' 


X'34' 


X'OOOO' 


X'36' 


X'0050' 


X'50' 


X'DSOO' 


X'52' 


X'OOCF' 


X'54' 


X'4300' 


X'56' 


X'0080' 



OPERATING PROCEDURES 



MDL is in the input mode (waiting for data) when X'FFFF' is displayed, 
and the processor is in the wait state. At this time, two functions 
can be performed. The entire media can be listed to a print device 
or a program can be loaded from the MDL media. 



6.1 To List the Media 



I The program will select the I/O device most logically to produce hard 
copvT The priority used is Line Printer, CLI , PASLA/STC. Enter X'OOOO' 



I 



on the switches or Hex display panel. Press "EXE" or "RUN", depending 
on panel type. The program information will be listed on the specified 
device. See Appendix 1 for sample listing. If the listing is being 
output to any device except the line printer, the listing pauses ^^after 
20 lines are displayed. To continue printing, depress "EXE or RUN _ 
depending on the panel type. Refer to Section 7 for error and completion 
displays. 

6.2 To Load a Program 

Enter the sequence number of the desired program on the switches or 
hex display panel. (The sequence numbers are included with the 
initial package and can be recreated with the list option. See 
Section 6.1.) Depress "EXE" or "RUN" depending on the panel type. 
The program specified is located and loaded if it exists on the 
media. Refer to Section 7 for error and completion displays. 

I NOTE: For Series 16 and Series 3 200, the console mode may be entered 
at any time by depressing the @ key. 

NOTE 

If Mag Tape is the INPUT media, the program to 
be loaded must be forward of the present position 
of the tape. 

7. ERROR AND COMPLETION DISPLAYS 

If an error occurs while MDL is processing or when processing is 
complete, a code is output to the Display Panel. Refer to Table 1 
for the meaning of each code. 
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TABLE 1 

*XXEO - Disc does not contain recognizable information 
*XXE3 - Unrecoverable Read Error 
*XXE7 - Mag Tape/Cassette Error 
*XXE8 - Disc Error 

BB - Program not on the media 

CC - Load Error 

DD - Attempt to load over MDL 



EE - Chksum Error on the program loaded 

FF - Normal Termination - job complete without error 

FO - (16 bit) FLPT Arithmetic Fault 

(32 bit) Arithmetic Fault 
Fl - Illegal Instruction 
F2 - Machine Malfunction 
F3 - Arithmetic Fault 

(16 bit) 
F5 - System Queue Service 

(32 bit only) 
F6 - MAC interrupt (32 bit only) 
F7 - SVC interrupt (32 bit only) 
*XX - When non-zero, is the device address 



If an error is detected, the only possible recovery is to retry 
the operation. If the media is a Mag Tape or Cassette, rewind 
it to load point. If it is a disc no action is needed. Refer 
to Section 6 for desired operation. 

If it is desired to perform another MDL operation after the 
X'FF' termination display, (provided that no other operation 
has destroyed MDL) restart the MDL at its bias X'4000' for 
16-bit processors and X'6000' for 32-bit processors. Refer 
to Section 6 for desired operation. 
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APPENDIX A 
SAMPLE LISTING 



SE« tt 


06.- U 


REV. 


MAr^;E 


LOW 


HIGH 


001 


176 


00 


FDl MULTl IwiEOTft Ol» LDR. l6BlT 


0*4000 


0«fAlF 


00? 


176 


00 


F02 MULTl MEOIA Pl. LOR. 32BIT 


06000 


06R1F 


00? 


177 


00 


FOl MULTl MEDIA DL GEM. l6BlT 


05000 


06F37 


00*4 


177 


00 


F02 MUL-Tl MEDTfl fil. GEN, 32BTT 


07000 


09059 


010 


003 


06 


MEMORY TE.ST P/iRT 1 


OlOOO 


0152F 


oil 


003 


08 


MEMORY Test part 2 


OOOaO 


OlOlP 


01? 


003 


08 


MEMORY TrsT PART 3 


OOOfiO 


oo^cn 


013 


106 


06 


PROCESSOR TE^T PflRT l 


oosno 


OlFFF 


Oli+ 


106 


06 


PROCESSOR TEcT PaRT ? 


00?D0 


C1D60 


01^ 


135 


01 


f'lEMORY PROTECT TEST 


oooao 


OOBFft 


017 


14 3 


00 


MOS MEMORY HOI n tEST 


OOOflO 


00305 


018 


lnn 


00 


l^CS PARITY I' ttIaLIZE TEST 


oqoao 


00 A3 


Ol9 


15fl 


00 


SERIES 3? BASIC tEST 


OOOflO 


0029F 


01 A 


153 


00 


MODEL 7/32 Hi-' PROCESSOR TrST 


OOAOO 


02001 


OlP 


IS'* 


01 


SERIES 3? PRnrrsSOR TEST pARTl 


OOAOO 


3F3P 


oic 


155 


00 


SERIES 3? PRnrrssOR TEST pART? 


OOAOO 


020 01 


oi:^ 


156 


01 


FOl SER. 32 vifi«iorY TeST PaRT 1 


02000 


0266?^ 


Olf:: 


156 


01 


FC2 SER. 32 '^FMORY TEST PaRT ? 


OOAOO 


0186P 


OlF 


156 


01 


F0 3 SER. 32 f'EMOpY TpST PflRT 3 


OOAOO 


0l'+53 


o?ri 


148 


00 


SERIES 6a memory TEST PARtI 


08 


OO^An 


021 


H+A 


00 


SERIES 6A MErTfJY TEST PArt2 


01000 


012E" 


02? 


159 


02 


SERIES 3? SYSTEM EXERCISER 


ooAno 


05907 


023 


160 


00 


MEMORY Access comTROller tEst 


OOAOO 


01 ABC) 


100 


00t+ 


01 


TELETYPE RASTr COfjFnENCE TEST 


oooao 


00A51 


10? 


071 


00 


801 AUTO CALI UNlT TEST 


OOCaO 


02Fn 


10^ 


101 


00 


DIGITAL MULTIPLEXOR TEST 


OOAOO 


OOFRF 


lOB 


12? 


03 


DISC TEST/FOKf ATTER 


OOAOO 


0290^ 


lOf. 


127 


01 


PALS OFF-l Il\iF TE^T 


A n 


02B7n 


107 


129 


Of 


UMIVERSAl logic INTERFACE TEST 


OOAOO 


00B9«' 


lOP 


131 


01 


MAG TAPE H CASSETTE TEST 


OOAOO 


0315n 


109 


13? 


02 


201/301 DATA SET ADAPTER tEST 


OO'^OO 


01C27 


lOA 


133 


01 


UMIVERSAl CLOCK ^'■0DULE TE«sT 


OOAOO 


016<47 


10 p. 


I3t| 


00 


6 LINE KmTERPIIPT MODULE TEST 


OOAOO 


01465 


IOC 


137 


00 


HIGH SPErn PAPFR TAPE R/P 


OOAOO 


OlEln 


lOf) 


139 


01 


16 BIT LSII SdPPOPT PROGRAK^ 


OOAOO 


OIAIF 


lOE 


n<n 


00 


DYNAMIC CONTROL STORAGE TfST 


OOAOO 


018B5 


llo 


l't7 


00 


CONVERSION E-iiiTPf-':ENT TEST 


OOAOO 


0233F' 


11? 


H+9 


00 


F02 MUX BUS SulTcH TrST PaRT? 


OOAOO 


00E61 


113 


150 


00 


SENSE CONTACT i^^OnULE TEST 


OOAOO 


00F5r 


n't 


151 


00 


RELAY DRIVER TEST 


OOAOO 


00E53 


115 


163 


01 


GRAP. DISPLAY TEFkMINaL TEsT 


OOAOO 


0i7cn 


116 


16H 


00 


20 SURFACE DISC TEST 


OOAOO 


0?n97 


lift 


167 


00 


FOl MA 360/370 Jr. TfST I^,TER. 


OOAOO 


03955 


200 


161 


01 


EXTENDED SELEfTOP CHaNNEl TEST 


OOAOO 


OlRll 


201 


165 


01 


SERIES 3? LS!J SUPPORT pROf^RA^ 


OOAOO 


027B9 
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OOOOOOI 



0000 


0000 


0000 


0000 


0000 


0001 


0000 


0002 


0000 


000 3 


0000 


0004 


0000 


0005 


0000 


0006 


0000 


0007 


0000 


000 8 


0000 


0009 


0000 


000 A 


0000 


OOOB 


0000 


OOOC 


0000 


OOOD 


0000 


OOOE 


0000 


OOOF 



1 

2 

3 
4 

c 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



»IBD 



«HD 



SCBAT 
CROSS 
SQUEZ 
SQCHK 
WIDTH 
IFZ 
PROG 
ELSE 
PROG 
EHDC 
COPYRIGHT 



120 

A DC- 2 

HHD LOADER 06-1 76F01802a96A13 

«HD LOADER 06-176F02802M91 A1 3 
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SULTI - HEDIA DIAGMOSTIC LOADER R02 



TETOS 

RO 

R1 

R2 

R3 

R4 

R5 

R6 

87 

R8 

R9 

RA 

RB 

RC 

RD 

SE 

RF 



EQO 
EQD 
EQO 
EQtl 
EQO 
EQO 
EQU 
EQU 
EQU 
EQD 
EQU 
EQU 
EQO 
EQU 
EQO 
EQU 
EQU 







1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



FOR PROPER EXECUTION OF THIS PfiOGRA."! THE DEVICE DEFINITION 
TABLE HOST BE SET UP PRIOR TO LOADING THIS PROGRAM. THE 
REQUIRED FORMAT IS: 



DEVICE 

MAG TAPE £ 
CASSETTE 



DISC 



X'78' 



DDA1 



TYZZ 



LOCATIOHS 
X'7A* 

0000 



DDTT 



X'7C* 



OOSS 



cess 



X'7E' 



OOLL 



OOLL 



WHERE: 



DD 
CC 
TT 



SS 
1i 



THE DEVICE WITH THE MAGNETIC MEDIA 
THE COSTROLLEB ADDRESS IF DD IS A DISC 
DISC TYPE INDICATOR 
31 = 2.5 ^B DISC 
33 = 10 KB DISC 

35 = 57 MB DISC 

36 = 256 MB DISC 
THE SELCH ADDRESS 
THE DEVICE ADDRESS 
DEVICE. 



OF THE DISC BOOT LOADING 



MDL00010 
HDL00020 

n.uu\j\j\j j\j 

aDL00040 

MDL00050 

MDL00060 

HDL00070 

MDL00080 

MDL00090 

HDL00100 

MDL00110 

HDL00120 

BDL00130 

KDL00140 

MDL0O150 

HDL00160 

MDL00170 

MDL00180 

MDL00190 

MDL00200 

BDL00210 

«DL0022d 

HDL00230 

MDL00240 

MDL00250 

MDL00260 

HDL00270 

MDI00280 

HDL00290 

MDL00300 

MDL00310 

MDL00320 

MDL00330 

MDL00340 

MDL00 350 

MDL00360 

8DL00370 

SDL00380 

MDL00390 

«DL0a400 

•IDL00410 

MDL00420 

MDL00430 

HDL00440 

MDL00450 

HDL00460 

MDL00470 

HDL00480 

HDL00490 

MDLOOSOO 

HDL00510 

MDL00520 

MDL00530 



KHD LOADER 0S-175F02R02K9U13 

5U * 

55 * 

56 * 

57 * 

58 * 

OOOOOOI 59 IFZ 

60 IFZ 

61 DS 

62 BS 

63 DC 
6t BOOTSTRT B 

65 DS 

66 DCX 

67 DCX 

68 DCX 

69 DCX 

70 DS 

71 ELSE 

72 OBG 

73 BS 

74 DC 

75 BOOTSTRT B 

76 OBG 

77 DCX 

78 DCX 

79 DCX 
8 DCX 

81 oaG 

82 ENDC 

83 EHDC 
@^ START EQO 

85 B 

86 DISFLG DCX 

87 PASHAD EQU 

88 PA3RAD EQU 

89 LPftD D3 

90 TTYAD DB 

91 PASC2 DB 

92 DB 

93 SOD DB 

94 SOP DB 

95 STCADR EQU 

96 TTIRD EQO 

97 TTTHS EQU 

98 PASBD EQU 

99 PASHB EQU 

100 HB»R EQU 

101 HBRD EQU 

102 BEGIN EQO 
OOOOOCI C800 3030 103 LHI 
0000101 1*000 8D20 =0O0D3iH lOt STH 
0000141 4000 8D1E =0000361 105 STH 
0000181 240F 106 LIS 
00001AI 4000 FFE6 =0000041 107 STH 
00001EI 2411 108 LIS 
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ZZ = THE READ COJiKAND FOR THE BOOT LOAD DEVICE 
LL = THE LOADER INDICATOR 

00 = 16 BIT LOADER 

01 = 32 BIT LOADER 



OOOOOOI 
0000041 



00000 61 
0000071 
0000081 
0000091 
OOOOOAI 
OOOOOBI 



0000 OOOOI 

4300 8B4C =0006601 

0000 

0000 0011 

0000 0010 

62 

02 

EE 

00 

00 

01 

0000 OOCO 

0000 0094 

0000 0098 

0000 00A1 

OOCO 00A3 

0000 0002 

0000 0082 

0000 OOOCI 

C800 3030 

4000 8D20 =0O0D34I 

4000 8D1E =0000361 

240F 

4000 FFE6 =0000041 

2411 



TETOS-1 

ADC-2 

X'6Q' 

BOOTSTRT 

Z(DIBECT) 

START 

X" 10' 



C633 

B6F0 



16256 

X'60' 

BOOTSTRT 

Z(DIRECT) 

START 

X'7B' 



C633 

B6F0 

1 

X'6000' 



LCORE 



X'11' 

X" 10- 

X'62" 

X'02' 

X'EE" 





1 

X'CO* 

X'94* 

X'98' 

X'AV 

X'A3* 

X*02' 

X'82' 

RO,X*3030' 
RO,PGMHUH 
R0,PG»il0M+2 
HO, 15 

SO, DISFLG 
E1,1 



FILLER 

SKIP SPT POINTER 

DUMMY SPT POINTER 

DO IT 

FILLER 



FILLER 



SKIP SPT POINTER 
DUHHlf SPT POINTER 
DO IT 



FILLER 

START OF DIRECTORY 

START OF PROGRAM SPACE 



LOAD ZEROS 

CLEAR 

CLEAR 

SET 

SET 



MDL00540 

MDL005S0 

.1DL00560 

MDL00570 

MDLQ0580 

BDL00590 

MDL00600 

MDL00610 

11DL00620 

MDL00630 

SDL00640 

MDL00650 

MDL00660 

BDL00670 

MDL00680 

MDL00690 

HDL00700 

SDL00710 

MDL00720 

MDL00730 

MDL00740 

MDL00750 

HDL00760 

KDL00770 

BDL00780 

HDL00790 

!(DL00800 

KDL00810 

HDL00 8 20 

"1DL0O830 

MDL00840 

MDLOOaSO 

HDL00860 

MDL00870 

HDL00880 

HDL00890 

MDL00900 

BDL00910 

MDL00920 

BDL00930 

BDL00940 

HDL00950 

MDL00960 

HDL00970 

SDL00980 

BDL00990 

SDL01000 

BDL01Q10 

BDL01020 

fiD101030 

HDL01040 

BDL01050 

HDL01060 

HDL01070 

BDL01080 
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0000201 

ooooaw 

0000261 
00002AI 
00002CI 
00002EI 
0000301 
0000321 
0000361 
0000381 

00003CI 
00003EI 
0000421 
0000461 

OOOOUAI 
00004AI 
00004EI 
0000521 
0000541 



0000741 
0000761 
0000781 
00007AI 
00007CI 
00007EI 
0000801 
0000841 
0000881 
00008CI 
0000901 
Q00094I 
0000981 
00009AI 
00009CI 



DE10 
24 20 
C8 30 
9A13 
9A13 
9A12 
9A12 
DE10 
2143 
C2Q0 
0000 
2400 
4000 
E6 40 

E6ao 

0000 



8CF2 =0000161 
OOFF 

eCEl =0000171 
=0000801 



8074 = 
003CI 

FFC2 = 
81C2 = 
8 IDF = 
004AI 



0000041 
0002081 
0002291 



C810 0011 

D320 FFB6 =0000081 

9E12 

C8 20 00A3 



0000581 


9E12 




00005AI 


D354 


0000 


00005EI 


9E12 




0000601 


2081 




0000621 


9A15 




0000641 


2641 




0000661 


0548 




*000068I 


2037 




00006 AI 


2460 




00006CI 






00006CI 


C810 


0010 


0000701 


C8 20 


00A1 



9E12 

9B12 

9D12 

2081 

9B12 

9A12 

C420 007F 

C520 005F 

4330 FFBE 

C520 OOOD 

4330 8054 

C520 0040 

2133 

8800 

2201 



=00004AI 



=O0OOE8I 



109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
T29 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 



HODIS 



0UT04 



0UT03 



OUT02 



oc 


R1,AS0HT1 


lis 


fi2,0 


LHI 


R3,X'FF' 


HDR 


81, RB 


WDR 


B1,R3 


WDB 


R1,R2 


WDR 


R1,R2 


OC 


R1, ABORT 1+1 


BTFS 


4,N0DIS 


LPSH 


GETHOM 


EQO 


* 


LIS 


80,0 


STH 


RO,DISFLG 


LDAI 


R4,?IES0K 


LDAI 


R8,«ES0KE}ID + 1 


EQU 


* 


IFNZ 


ADC-2 


LHI 


R1,PA3HAD 


LB 


R2,PASC2 


OCR 


R1,R2 


LHI 


R2,PASHR . 


ELSE 




LHI 


R 1 , X • CO • 


LHI 


R2,MBHH 


EH DC 




OCR 


R1,82 


LB 


H5,0(R4) 


SSR 


R1,S2 


BTBS 


8,1 


Koa 


H1,R5 


AIS 


R4,1 


CLAR 


R4,B8 


BNE 


0UT03 


LIS 


H6,0 


IFSZ 


ADC-2 


LHI 


R1,PASRAD 


LHI 


32,PASRD 


ELSE 




LHI 


P2,<!3RD 


EN DC 




OCR 


81, H2 


RDH 


R1,R2 


SSR 


R 1 , R 2 


BTBS 


8,1 


HD3 


R1,H2 


»DR 


ai,R2 


NHI 


R2,X'7F' 


CLHI 


R2,X'5r' 


BE 


OUT04 


CLHI 


R2,X*0D* 


BE 


FINUM2 


CLHI 


R2, ca' 


BHES 


0UT05 


DC 


X'8800' 


DC 


X'2201' 



FALSE SrNC 



CLEAR 

CLEAR 

GET ADDRESS 

GET END ADDRESS 



LOAD PASLA WHITE ADDSESS 

LOAD CRD2 

ISSUE CMD2 

LOAD WRITE COHBASD 

LOAD STC ADDRESS 
LOAD WRITE COHHAND 

ISSUE WRITE COHMAHD 

LOAD DATA BYTE 

SENSE STATUS 

WAIT FOR BUSr NOT 

WRITE DATA 

INCRIHEST 

DONE?? 

NO, LOOP 

CLEAR 

LOAD PASLA READ ADDRESS 
LOAD READ COMMAND 

LOAD READ COMMAND 



ISSUE 


READ COMMAND 


DUMilI 


READ 


SENSE 


STATUS 


WAIT 


FOR BUSY NOT 


READ 


DATA 


ECHO 


DATA 


STRIP 


PARITY 


POUND 


?? 


LOOP 




CR?? 




LOAD 


IT 


ADDRESS REQUEST?? 


BREAKPOIST 


LOOP 





RDL01090 
MDL01100 
MDLOIIIO 
MDL01120 
MDL01130 
HDL01140 
MDL01150 
MDL01160 
MDL01170 
MDL01180 
MDL01190 
KDL01200 
MDL01210 
HDL01220 
SDL01230 
BDL01240 
MDL01250 
MDL01260 
HDL01270 
HDL0128 
MDL01290 
MDL01300 
MDL01310 
MDL01320 
HDL01330 
MDL01340 
HDL01350 
MDL01360 
MDL01370 
MDL01380 
MDL01390 
HDL01400 
MDL01410 
HDL01420 
MDL01430 
MDL01440 
MDL01450 
MDL01460 
ffDL01470 
MDL01480 
MDL01490 
MDL01500 
HDL01510 
K DL0 1520 
MDL01530 
MDL01540 
MDL01550 
MDL01560 
MDL01570 
SDL01580 
MDL01590 
MDL01600 
MDL0T51Q 
•1DL01620 
MDL01630 
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00Q09EI 


D226 aC92 


=0000341 


164 


0UT05 


ST3 


R2,PGMSUM(R6) 


STORE 


0000»2I 


2661 




165 




AIS 


R6,1 


INCRIMENT 


*OOOOA«I 


C560 000« 




166 




CLAI 


86,4 


DOSE?? 


0000A8I 


4280 FFCC 


=0000781 


167 




BL 


OUt02 


HO, LOOP 


OOOOACI 


43C0 FF8C 


=00003CI 


168 




B 


SODIS 


RESTART 


OOOOBOI 






169 




ALIGS 


8 






COCO OOBOI 




170 


GETNUM 


EQU 


* 




OOOOBOI 






171 
172 
173 




IFZ 

DC 

ELSE 


ADC-2 
X'F000',Z(FIN'JM) 




OOOOBOI 


0000 




174 




DC 


X -0000 '.X- FOFO' 




000QB2I 


FOFO 














0O0OB4I 


0000 




175 




DC 


X'OOOO" ,Z{FINUM) 




0000B6I 


00E8I 




176 




ESDC 






0000B8I 


2411 




177 


FINUH 


LIS 


R1,1 




OOOOBAI 


DE10 8C58 


=0000161 


178 




OC 


R1,AB0RT1 




OOOOBEI 


9B12 




179 




BDB 


R1,R2 


READ THE NUMBER ENTERED 


OOOOCOI 


9B13 




180 




RDS 


R1,R3 


IN HEX 


0000C2I 


1138 




181 




SLLS 


R3,8 




OOOOCtl 


0623 




182 




OAR 


R2,S3 


GET THE THREE DIGITS 


*0000C6I 


C420 OFFF 




183 




NAI 


B2,X'FFF' 




OOOOCAI 


4020 8082 


=000D50I 


184 




STH 


B2,HEXNU^ 




OOOOCEI 


2452 




185 




LIS 


R5,2 




OOOODOI 


C830 OFFF 




186 




iHI 


R3,X'0FFF' 


MASK OFF 3 DIGITS 


0000D4I 


0432 




187 




KAR 


R3,a2 




0000D6I 


242F 




188 


FINUM1 


LIS 


R2,X'F' 


CONVERT TO ASCII 


0000D8I 


0423 




189 




HAB 


R2,R3 




OOOODAI 


D342 8C0a 


=000CE6I 


190 




LB 


S4,ASCI(a2) 




OOOODEI 


D245 8C52 


=OO0D34I 


191 




STB 


R4,PGflNU«CR5) 




00O0E2I 


1034 




192 




SRLS 


R3,4 




OOOOEitl 


2751 




193 




SIS 


R6,1 




0000E6I 


2218 




194 




BHHS 


FINUHI 


NUMBER IS NOW IN ASCII 




0000 00E8I 




195 


FINUK2 


EQU 


* 




0000E8I 


2aA0 




196 




LIS 


RA,0 


SETUP 


OOOOEAI 


24E1 




197 




LIS 


RB,1 


BXLE 


0000 ECI 


24C2 




198 




LIS 


RC,2 


COUNT 


OOOOEEI 


24D0 




199 




LIS 


R0,O 


CLEAR 


OOOOFOI 


D30A 8C40 


=000D34I 


200 


ATH 


L3 


RO,PGflNUM(HA) 


GET ASCII 


OOOOFttl 


C500 003A 




201 




CLHI 


R0,X*3A' 


LEGAL 0-9?? 


*OOO0F8I 


238E 




202 




BHC 


ATF 


MAY BE A-F 


OOOOFAI 


C500 0030 




203 




CLHI 


B0,X*3O' 


LEGAL 0-9?? 


OOOOFEI 


4280 8024 


=0001261 


204 




BL 


NOTHEX 


INVALID HUHBER 


0001021 


C400 OOOF 




205 


HSAV 


NHI 


RO,X'F' 


MASK 


0001061 


11C4 




206 




SLLS 


RD,4 


SHIFT 


0001081 


06D0 




207 




OAH 


RD,ao 


SERGE 


00010AI 


C1A0 FFE2 


=0000F0I 


208 




BXLE 


RA,ftTH 


LOOP 


00010EI 


40C0 8C3E 


=0000501 


209 




STH 


HD,H£XSUM 


STORE 


♦0001121 


230D 




210 




B 


FISUM3 


GO 


0001141 


CSOO 0041 




211 


ATF 


CLHI 


80,X'41' 


LEGAL A-F?? 


•0001181 


2187 




212 




BL 


KOTHEX 


IHVALID NUMBER 


00011AI 


CSOO 0046 




213 




CLHI 


R0,X'45" 


LEGAL A-F?? 


*00011EI 


2384 




214 




BNC 


SOTHEX 


INVALID NUMBER 


0001201 


2609 




215 




AIS 


80,9 


KAXE LSD HEX 


00012 21 


4300 FFDC 


=0001021 


216 




B 


HSAV 


CONTINUE 



HDL01640 
MDL01650 
HDL01560 
MDL01670 
MDL01680 
aDL01690 
.1DL01700 
MDL01710 
HDL01720 
MDL01730 
MDL01740 

MDLO1750 

NDL01760 
HDL01770 
MDL01780 
;1DL01790 
HDL01800 
« CIO 1810 
MDL01820 
HDL0183C 
HDL018U0 
HDL01850 
HDL01360 
!(DL01870 
MDL01880 
NDL01890 
NDL0190C 
flDL01910 
MDL01920 
HDL01930 
HDL01940 
MDL01960 
MDL01960 
SDL01970 
P1DL01980 
HDL01990 
HDL02000 
HDL02010 
MDL02020 
!1DL02030 
RDL02040 
BDL02050 
HDL02060 
JIDL02070 
RDL02080 
HDL02090 
SDL02100 
fiDL02110 
BDL02120 
HDL02130 
HDL02140 
HDL02150 
HDL02160 
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0001261 


2400 






217 


NOTHEX 


LIS 


S0,0 


0001281 


43C0 


FFD6 


=0001021 


218 




B 


HSAV 


00012CI 


4840 


007* 




219 


FISUK3 


LH 


H4,X'7A' 


0001301 


4330 


805A 


=00018EI 


220 




BZ 


MTDEV 


0001311 


D3A0 


007A 




221 




LB 


HA,X*7A" 


0001381 


D3B0 


0070 




222 




LB 


EB,X'7D' 


00013CI 


DEBO 


8BCC 


=000D0CI 


223 




OC 


HB,STOP 


oooiaoi 


DEBO 


BBC8 


=0O0D0CI 


224 




OC 


SB, STOP 


0001i»« 


D3C0 


007C 




225 




LB 


RC,X'7C' 


oooiaei 


D370 


007B 




226 




LB 


B7,X'7B' 


oooiaci 


2420 






227 




Lis 


82,0 


00014EI 


C570 


0031 




228 




CLHI 


R7,X'31* 


0001521 


4280 


FEB6 


=OOOOOCI 


229 




BL 


BEGIN 


0001561 


43 30 


802A 


=0001841 


230 




BE 


FIN0M4 


OOOISil 


2621 






231 




AIS 


R2,1 


0001 SCI 


C570 


0032 




232 




CLHI 


B7,X'32' 


0001601 


4330 


8020 


=0001841 


233 




BE 


FIHUB4 


0001641 


C570 


0033 




234 




CLHI 


B7,X*33' 


*000168I 


233E 






235 




BE 


FIHUfI4 


0001 6 AI 


C570 


0034 




236 




CLHI 


R7,X'34' 


00016EI 


4330 


FE9A 


=0OO00CI 


237 




BE 


BEGIN 


0001721 


2621 






238 




AIS 


82,1 


0001741 


C570 


0035 




239 




CLHI 


B7,X'35' 


*000178I 


2336 






240 




BE 


FISDM4 


00017AI 


2621 






241 




AIS 


82,1 


00017CI 


CS70 


0036 




242 




CLHI 


R7,X'36* 


0001801 


4230 


FE8 8 


=OOOO0CI 


243 




BSE 


BEGIli 


00018 41 


0872 






244 


FINUM4 


LDAB 


S7,R2 


0001861 


0R77 






245 




AAR 


S7,87 


0001881 


4070 


83C6 


=0OOD52I 


246 




STH 


.87,rRKDEN 


00018CI 


2306 






247 




BS 


CONTUE 




0000 


02C6I 




248 


aiEov 


Egu 


DEOV 


0001 8 EI 


D3A0 


0078 




249 


STDEV 


13 


RA,X'78' 


0001921 


D3E0 


007D 




250 




L3 


8B,X*7D' 


00O196I 


24C0 






251 




LIS 


RC,0 




0000 


01981 




252 


COHTUE 


EQU 


* 


0001981 


48 20 


8BB4 


=0000501 


253 




IH 


82,HEXHaH 


00019CI 


4330 


84DC 


=00067CI 


254 




BZ 


LIST 


OOOIAOI 


08CC 






255 




LDA2 


RCRC 


0001A2I 


4230 


8034 


=00022AI 


256 




BNZ 


LODDIS 










257 


* THIS 


SOUTINE WILL FOHW. 










258 


* THE 


NUMBEB 


IN THE PDB 










259 


* DI3P 


LAY, OR EOV IS BEA 










260 


* PROGHA* AS 


SOCIATED WIT 


00OU6I 


DEAD 


8B5A 


=00OD04I 


261 




OC 


HA,DISABL 


0001AAI 


DEAD 


83S7 


=0000051 


262 




OC 


8A,CLEAB 


OOOIAEI 


DEAD 


8B56 


=O00D08I 


263 


JIAGFFI 


OC 


RA,FHFM 


0001B2I 


4100 


8802 


=OO0A88I 


264 




BAL 


80,SOMOTN 


0001B6I 


E6E0 


8C36 


=000DF0I 


265 




LDAI 


85, PDB 


0001BAI 


E660 


8C64 


=000E22I 


266 




LDAI 


H6,PDB+50 


0001BEI 


E610 


3104 


=0002C6I 


267 




LDAI 


81,?1TE0V 


0001C2I 


4130 


8232 


=0004781 


268 




BAL 


B3,aEADPB 


0001C6I 


48 30 


8B6A 


=000D34I 


269 




LH 


R3,PGMH0H 


0001CAI 


4530 


8C22 


=000DF0I 


270 




CLH 


R3,PDB 


0001CEI 


4230 


FFDC 


=0001AEI 


271 




BNE 


f!AGFF1 



CLEAR 

COHTINUE 

LOAD INPOT DEVICE ADDRESSES 

0=MAG TAPE 

GET DEVICE ADDRESS 

GET SELCH ADDRESS 

STOP A SELCH 

STOP A SELCH 

GET CONTROLLER ADDRESS 

LOAD DEVICE COUNT 

2. 5 MB DISC?? 

ILLEGAL DEVICE 

YES 

BOMP 

10 SB DISC (FIXED)?? 

YES, TREAT AS BEHOVABLE 

10 SB DISC (REMOVABLE)?? 

YES 

40 MB DISC?? 

NOT SUPPORTED . 

BDHP 

80 MB DISC?? 

YES 

BUMP 

300 MB DISC?? 

ILLEGAL DEVICE 

SETUP DEVICE TYPE 

DOUBLE DEVICE F0ISTE8 



GET HAG TAPE ADDRESS 

SET SELCH 

SET CONTROLLER = 

ADDRESSES ARE LOADED 

GET THE HO.IBER ENTEBEDdS HGX) 

IF ZERO - GO LIST 

MAG TAPE ? 

NO, LOAD DISC 
ARD FILE MARKS AND READ PDB'S UNTIL 
MATCHES THE NUMBER ENTERED ON THE 
CHED. IF THE NUMBER IS FOUND THE 
H THAT NUMBER IS LOADED. 

DISABLE INTERRUPTS 

CLEAR CONTROLLER 

FORWARD FILE MARK 

WAIT 



READ THE PDB 

GET THE NUMBER ENTERED 

FIRST TWO DIGITS = ? 

NO 



MDL02170 
KDL02180 
MDL02190 
HDL02200 
SDL0221O 
MDL02220 
MDL02230 
MDL02240 
MDL02250 
KDL02260 
MDL02270 
MDL02280 
HDL02290 
SDL02300 
HDL02310 
MDL02320 
MDL02330 
MDL02340 
MDL02350 
MDL02360 
KDL02370 
MDL02380 
MDL02390 
HDL02400 
MDL02410 
MDL02420 
MDL02430 
SDL02440 
MDL02450 
MDL02460 
MDL02470 
MDL0248 
HDL02490 
HDL02500 
MDL02510 
MDL02S20 
MDL02530 
MDL02540 
HDL02550 
HDL02560 
MDL02570 
MDL02580 
MDL02590 
MDL02600 
MBL02610 
MDL02620 
MDL02630 
MDL02640 
MDL02S50 
MDL02660 
HDL02670 
flDL02680 
MDL02590 
MDL02700 
MDL02710 



MHD lOJ.DER 06-176F02?02??9m3 



0001D2I 
0001D6I 
0001DAI 
0001DCI 
0001EOI 
OOOIEai 
0001E8I 
0001ECI 
0001F0I 
OOOIFUI 
0001F8I 
0001FAI 
0001FCI 
0002001 
0002041 
0002081 
0002101 
0002181 
0002201 
0002261 
0002281 



00022AI 

00022EI 

0002321 

0002341 

0002381 

00023CI 

0002401 

0002441 

0002481 

00024CI 

0002501 

0002541 

0002581 

00025CI 

00025EI 

0002621 

0002661 

0002681 

00026CI 

0002701 

0002741 

0002761 

00027AI 

00027EI 

0002801 

0002841 

0002861 

00028AI 

00028EI 



D330 
D340 
0534 
4230 
4130 
58E0 
58 EO 
4130 
E610 
4130 
0844 
2237 
4300 
C810 
4300 
4D4D 
494E 
5155 
554D 
ODOA 
2A20 



0000 
D330 
4030 
0788 
4080 
4130 
DEAO 
4130 
E650 
E660 
4130 
4130 
C830 
4530 
2335 
C810 
4300 
0722 
4832 
43 30 
4530 
2138 
D332 
D310 
0531 
4330 
2628 
C520 
4230 
2681 



BB60 
8C18 

FFCE 
8154 
8B30 
8B30 
8864 
800C 
8280 



8232 

oocc 

8A54 
444C 
5055 
454E 
4245 



=0000361 
=000DF2I 

=Q001AEI 
=0003381 
=0000181 
=000D1CI 
=000A54I 
=0002001 
=0004781 



=0004321 

=000C5CI 
5230 322D 
5420 5345 
4345 204E 
5220 



022AI 
FDDC = 
8B12 = 

8B0E = 
8860 = 

aacE = 

889A ^ 
8BDC = 
8CD7 : 
884C ■■ 
8210 ^ 
EEEE 
8BC8 

OOEO 
8A12 

8BB8 
8056 
8AC0 

8BAC 
3AB8 



=00000AI 
=0000441 

=0000461 
=000A9CI 
=O0ODOEI 
=OOOADEI 
=000E24I 
=000F23I 
=000ft9CI 
=0004641 

=000E24I 



=000C78I 

=000E24I 
=0002C6I 
=0000341 

=000E26I 
=0000361 



8062 =0002E6I 



0100 
FFDA 



=0002681 



272 
273 
27 4 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 



288 

289 

290 

291 

292 

29 3 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 



MOREMT 



MTENDX 



KESOK 



MESQKEND DC 

* THIS ROUTI 

* THAT MATCH 

* IF THE NUM 
N'JNBEB IS 

lODDIS EQU 
LB 
STH 
XAB 
STH 
BAL 
OC 
BAL 
LDAI 
LDAI 
BAL 
BAL 
LHI 
CLH 
BES 
LHI 
B 

DISCON XA8 

UPDTX3 LH 
BZ 
CLH 
BNES 
LB 
LB 
CLAF 
BE 

UPDTX2 AIS 
CLH I 
BNE 
AIS 
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YES - COMPARF. THIHD 



SO, SKIP MOHE 

SET THE SUM3EH OF BLOCK TO BE COPIED 

LOAD START ADDRESS 

LOAD STOP ADDBES3 

ADJUST ADDRESS 

WRITE TO MEMORY 

GET END INDICATOR 
FINISHED - SO 
YES 

SHORT FILE 

FILE HARK BEFORE END OF COUHT 
SEQUENCE NUMBER', X'ODOA* 



C ■ * • 
NE WILL SEARCH THE DISC DIRECTORY FOR A SUKBSR 
ES THE KUKBER ENTERED ON THE DISPLAY, 03 EOV. 
BER IS FOUND THE PROGRAM ASSOCIATED WITH THAT 
LOADED. 



LB 


S3,PGKNUK+2 


LB 


R4,PDB+2 


CLAR 


R3,34 


BNE 


SAGFF1 


BAL 


R3,MI3THT 


LDA 


aO.LOii 


LDA 


RE, HIGH 


BAL 


R3,3TBKAD 


LDAI 


R1,HTESDX 


BAL 


R3,READP3 


LDAR 


S4,H4 


BZS 


SORSMT 


B 


CHKSUM 


LHI 


R1,X"CC' 


B 


ERROR 


DC 


C'«HDLR02-INPUT 



S3, SOD 

R3,CYL 

R8,R8 

Ii8,HEAD 

83,aDFT 

RA,SEEK 

H3,FRSRW 

H5, DIRECT 

R6,DIRECT+255 

H3,HDFT 

R3,RDISC 

R3,X'EEEE' 

R3, DIRECT 

DISCOK 

RI.X'EO* 

EBRA 

R2,R2 

R3,DIRECT(R2) 

DEOV 

R3,PG«SU« 

UPDXX2 

R3,DIBECT+2(R2) 

ai,PGHHUS+2 

B3,R1 

FT HO 

R2,8 

B2,X'100" 

UPDTX3 

R8,1 



GET START 
SET CYL TO ONE 
SET SECTOR TO ZERO 
SET HEAD TO ZERO 

SEEK 

WAIT 



READ THE DISC 

IS KNOW INFO ON THE PACK 7 

YES 

NO - DISC DOES SOT CONTAIN KNOWN INFO 



GET THE n FRON YHE DIRECTOBY 

END OF VOLUME - YES 

MO 

IS THIS THE COHSEHT 

HUSBEB 



YES 

NO - BU«P DIRECTORY POINTER 

SAX ? 

NO 

1AX n OF SECTORS ? 



J1DL32720 
MDL02730 
»!DL02740 
MDL02750 
KDL02750 
:iDL02770 
aDL02780 
NDL02790 
!1DL02eOO 
HD102810 
MDL02820 
KDL02830 
HDL02a40 
MDL02e5C 
HDL02860 
!1DL02870 



aDL02380 

WDL02890 

!1DL02900 

HDLO2910 

HDL0292C 

HDL02930 

HDL02940 

HDL02950 

MDL02960 

MDL02970 

HDL02980 

NDL02990 

HDL03000 

HDL03010 

HDL03020 

MDL0303Q 

MDL03040 

HDL03050 

MDL03060 

MDL03070 

HDL03080 

MDL03090 

HDL03100 

HDL03110 

(1DL03120 

HDL03130 

BDL03140 

«DL03150 

NDL03160 

BDL03170 

MDL03180 

MDL03190 

(10103200 

SDL03210 

.''DL03220 
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0002901 
0002941 

'0002981 
00029AI 
00029EI 
0002A2I 
0002A6I 
0002AAI 
0002ACI 
0002BOI 
0002B4I 

'0002B8I 
0002BAI 
0002BCI 
0002C0I 
0002C2I 
0002C6I 
0002CAI 
0002CEI 
0002D0I 
0002D2I 
0002DW 
0002D6I 
0002D8I 
0002DAI 
0002DCI 
0002DEI 
0002EOI 
0002E2I 
0002E4I 

0002E6I 
0002EAI 
0002EEI 
0002F2I 
0002F6I 
0002FftI 
0002FEI 
0003021 
0003061 
00030AI 
00030EI 
0003121 
0003161 
00031AI 
00031EI 
0003221 
0003261 
00032AI 
00032EI 
0003321 
0003341 



48 30 

4583 

233C 

E6 50 

E660 

4130 

4130 

2420 

4300 

48 20 

4523 

2337 

2621 

40 20 

0788 

4300 

C810 

4300 

0001 

00C1 

0004 

0012 

0018 

0018 

0040 

0040 

OOCA 

0197 

0336 

0336 

0000 

48 8 2 

4080 

D382 

D332 

4030 

4130 

4130 

DEAO 

4130 

E650 

E660 

4130 

4130 

58 CO 

58E0 

4130 

40 40 

4130 

4840 

2238 

4300 



8ABE 
803E 

8B86 
8C81 
87F6 
aiBA 

FFB8 
8A92 
8016 



=0000521 
=0002061 

=000E24I 
=000F23I 
=000A9CI 
=0004641 

=0002681 
=0OOD46I 
=0002CEI 



8A86 =000D46I 

FFD4 =00029AI 

OOBB 

898E =O0OC5CI 



02E6I 
8B3E = 
8A56 = 
8B38 = 
8B35 = 
8A4C = 
87E0 = 
879A ■■ 
8A08 = 
87D4 ■■ 
8AE2 ' 
8B10 : 
807A ■■ 
801E = 
89FA '■ 
89FA ■■ 
872E ■■ 
8A1E 
S062 
8A16 



000E28I 
O00D44I 
OO0E2AI 
:OO0E2BI 
0000461 
OOOADEI 
:000A9CI 
^OOODOEI 
OOOADEI 
^OOODFOI 
:000E22I 
^0003901 
=0003381 
=000D18I 
=0000 1C I 
=000A54I 
=000D48I 
=0003901 
=0000481 



80FA =0004321 



323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

36 3 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 



UPD.TX5 



DPDTX4 



DEOV 
HDTAB 

SECTAB 

CYLTAB 

FIND 



DTRIP 



* TH 

* AX 



LH 

CLH 

BE 

LDAI 

LDAI 

BAL 

BAL 

LIS 

B 

LH 

CLH 

BE 

AIS 

STH 

XAR 

B 

LHI 

B 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

EQU 

LH 

STH 

LB 

LB 

STH 

BAL 

BAL 

oc ■ 

BAL 

LDAI 

LDAI 

BAL 

BAL 

LDA 

LDS 

BAL 

STH 

BAL 

LH 

BZS 

B 
IS ROUTI 
D STORE 



H3,TRKDEN 

S8,3ECTAB(B3) 

UP0TX4 

8 5, DIRECT 

a6,DIRECT+25S 

R3,SJDFT 

a3,HDISC 

82,0 

UPDTX3 

R2,HEAD 

R2,HDTAB(a3) 

DEOV 

R2,1 

R2,HEAD 

R8,88 

UPDTX5 

R1,X'BB' 

ERROR 

H*r 

H"1' 

H'4' 

H' 18' 

H'24' 

H'24' 

H'64* 

H*64* 

H'202* 

H'407' 

H'B22' 

H*822' 



XES 
NO 



HEAD HEM DIRECTORY 
ZERO POINTER 



SAVE 

ZERO SECTOR 



THE STARTING HEAD 



R8,DIRECT+4(R2) 

R8,CYL 

R8,DIHECT+6(R2) 

R3,DIRECT+7(R2) 

83, HEAD 

S3,FRSRW 

R3,HDFT 

RA,SEEK 

R3,FRSRM 

R5,PDB 

R6,PDB+50 

R3,AVAILR 

H3,MISTBT 

RD,LC« 

RE, HIGH 

H3,STBKAD 

R4,AVAFLG 

R3,AVAIIR 

R4,AVAFLG 

DTRIP 

CHKSUM 
ME MILL READ THE LOiJ AND HIGH LIMITS FROM THE PDB 
THEH IM "EMORY AT THE LABELS LOW AND HIGH RESPSCTI VSLY . 



SET THE SECTOR 
SET THE HEAD 

FILE READY 

SET UP FILE 

SEEK 

WAIT 

SET UP ADDRESSES 



SET UPP LOW AND HIGH 



SET BLOCK LENGTH 
SAVE 

RESTORE 



MDL03230 

MDL03240 

MDL03250 

?IDL03260 

nDL03270 

MDL03280 

aDL03290 

HDL03300 

HDL03310 

HDL03320 

aDL03330 

HDL03340 

aDL03350 

MDL03360 

MDL03370 

HDL03380 

MDL03390 

MDL03400 

!!DL03410 

MDL03420 

MDL03430 

MDL03440 

HDL03450 

BDL03460 

!1DL03470 

KDL0 3480 

MDL03490 

MDL03500 

SDL03510 

MDL03520 

MDL03530 

BDL03540 

MDL03550 

MDL03560 

!1DL03570 

SDL03580 

MDL03590 

HDL03600 

?iDL03610 

MDL03620 

MDL03630 

aDL03640 

MDL03650 

HDL03660 

HDL03670 

HDL03680 

HDL03690 

MDL03700 

HDL03710 

MDL03720 

HDL03730 

KDL03740 

MDL03750 

MDLO3760 

HDL03770 
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378 • 

379 * 

380 * 
38 1 * 

382 * 

383 * 
3ait * 
385 * 
38€ * 

387 * 

388 * 

389 * 

390 * 

391 * 
0003381 2t10 392 MISTRT 
00033ftl 5030 89F2 =0000301 393 NISTR1 
00033EI 0733 39U HISTB2 
0003401 D331 BABE =000E02I 395 
00034UI 1138 396 
0003461 D321 8AB9 =OOOE03I 397 
00034AI 0632 398 
00034CI 1138 399 
00034EI D321 8A82 =OOOK04I 400 
0003521 0632 "01 
0003541 0811 402 
0003561 2136 403 
0003581 6030 89BC =000D18I 404 
00035CI 2413 40 5 
00035EI 4300 FFDC =00033EI 406 
0003621 5030 89B6 =000D1CI 407 BISHI 
0003661 5830 89AE =0000181 408 
OO036AI E620 FC92 =0000001 409 
00036EI 0532 "HO 
0003701 2188 411 
0003721 E620 8AB3 =000E29I 412 
0003761 0532 413 
0003781 2188 414 
00037AI 5830 S9B2 =0000301 415 KISEND 
00037EI 0303 416 
0003801 5830 8998 =OO0D1CI 417 PRGLOH 
0003841 0532 418 
0003861 2086 419 
0003881 C810 OODD 420 MISERR 
00038CI 4300 88CC =000C5CI 421 

422 ' 

423 ' 

424 ' 

425 ' 

426 ' 
427 
428 
429 
430 
431 
432 



PAGE 
IHPUT: 
BEG 3 = RETURN ADDRESS 



16:07:36 03/13/79 



OUTPUT: 

LOCATION LOW 

HIGH - 

REGISTERS USED: 

R1 
R2 



- iOH ADDRESS TO 3E COPIED 
HIGH ADDRESS TO BE COPIED 



LIS 
STA 
XAH 
LB 

SLLS 
LB 
OAR 
SLLS 
LB 
OAR 
LDAR 
BSZS 
STA 
LIS 
B 

STA 
LDA 
LDAI 
CLAR 
BLS 
LDAI 
CLAH 
BLS 
LDA 
BR 
LDA 
CLAR 
BLS 
LHI 
B 
THIS ROUT 
INTO THE 
AND CYLIH 

IHPOT 



R1,0 

R3,«ISTRfl 

R3,R3 

R3,PDB+18{R1) 

R3,8 

H2,PDB+19(R1) 

R3,82 

B3,8 

H2,PDB+20(R1) 

R3,R2 

H1,R1 

HISHI 

R3,L0M 

R1,3 

HISTR2 

R3,HIGH 

R3,L0H 

R2, START 

R3,R2 

PRGLOK 

R2,EKD+4 

R3,R2 

HISERR 

R3,MISTRN 

H3 

83, HIGH 

R3,R2 

MISEHD 

R1,X'DD' 
ERROR 
IHE WILL READ A S 
SPECIFIED BUFFER 
DER UPDATED TO TH 



SET THE LOW FLAG 

SAVE RETURN 

ZERO THE RESULT REG. 

GET HO BYTE OF ADDRESS 

SHIFT 

GET MO BYTE OF ADDRESS 

OB IT IH 

SHIFT 

GET LO BYTE OF ADDRESS 

OR IT IN 

R1 = 

NO 

YES THEN L0« WAS READ 



GET LOW 

IS IT < TPL 



LOW < HDL HIGH SUST BE < HDL 

LOW IS > TPL START, THFREFORE IT 

CANNOT BE < ESD 

ATTEMPT TO LOAD OYER LOADER 

LOW IS > END OK 

RETURN 

GET HIGH 

IS IT < START ALSO 

YES, OK 

ATTEMPT TO LOAD OVER LOADER 

ECTOB OF THE PROGRAM FROM THE DISC 
AREA, AND RETURN WITH THE SECTOR, HEAD, 
E NEXT AVAILABLE SECTOR 



; R3 = RETURN ADDRESS 

R8 = SECTOR TO BE READ 

RA = DEVICE ADDRESS 

RB = SELCH ADDRESS 

RC = CONTROLLER ADDRESS 

HEAD = CURRENT HEAD 

CYL = CURRENT CYLINDER 



«DL03780 

HDL03790 

MDL03800 

«iDL03eiO 

SDL03820 

MDL03e30 

BDL03840 

nDL03850 

HDL03860 

SDL03870 

MDL03880 

SDL03890 

BDL03900 

HDL03910 

SDL03920 

•1DL03930 

MDL03940 

MDL03950 

•1DL03960 

nDL03970 

MDL03980 

NDL03990 

.1DL04000 

HDL04010 

MDL04020 

HDL04030 

MDL04040 

MDL04050 

SDL0U060 

I1DL04070 

KDL04080 

MDL04090 

tL04100 
L04110 
HDL04120 
HDL04130 
HDL04140 
HDL04150 
MDL04160 
HDL04170 
BDL04180 
HDL04190 
fIDLO«200 
KDL04210 
HBL04220 
BDL04230 
HDL04240 
aDL04250 
HDL04260 
8DL04270 
MDL04280 
MDL04290 
KDLO4300 
MDL04310 
MDL04320 
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433 


* 




as = START OF E 


iUFFER TO BE REAU 








434 


* 




R6 = ESD OF BUFFER TO BE READ 








435 


* 














436 


* 


OUTPUT 


: R8 = NEW SECTOR 


NUMBER 








437 


* 




R5 = SAME 










438 


* 


B6 = 


: SAME 










439 


* 




HEAD = HEAD ASSOCIATED WITH THE NEXT SECTOR 








440 
441 
442 


* 




CYL = CTL ASSOCIATED WITH THE NEXT SECTOR 




0000 03901 




AVAILS 


EQU 


* 




0003901 


5030 89A8 


=000D3CI 


443 




STA 


R3,AVARTN 




ooosgti 


4130 8704 


=000A9Cr 


444 


AVAILS 


BAL 


R3,iJDFT 




0003981 


DEAO 8972 


=0O0DOEI 


445 




OC 


HA, SEEK 




00039CI 


4130 873E 


=000ADEI 


446 




BAL 


B3,FRSHH 




0003AOI 


4840 89AE 


=000D52I 


447 




LH 


R4,TRKDEN 


LOAD TRKDEH 


0003A4I 


4584 FF2E 


=0002061 


448 




CLH 


R8,SECTAB{E4) 


MAXIMUM ? 


*0003A8I 


233C 




449 




BE 


AVAIL4A 


YES 


0003AAI 


4130 86EE 


=0OOA9CI 


450 


AVAIL4 


BAL 


R3,M0FT 




0003AEI 


4130 874C 


=000AFEI 


451 




BAL 


B3,SCHK 


READ CHECK THE SECTOR 


0003B2I 


4830 89A2 


=0000581 


452 




LH 


R3,C0HSTA 


IS THIS SECTOR 


0003B6I 


C330 0020 




453 




THI 


R3,X*20" 


DEFECTIVE 


0003BAI 


4330 8032 


=0003F0I 


454 




BZ 


AVAIL1 


MO 


0003BEI 


2681 




455 




AIS 


R8,1 


HO - GET ANOTHER SECTOR 


0003C0I 


4584 FF12 


=0002061 


456 


AVAIL4A 


CLH 


R8,SECTAB(S4) 


MAXIMUM ? 


*0003Cm 


203D 




457 




BNE 


AVAIL4 




O003C6I 


4830 897C 


=0000461 


458 




LH 


R3,HEAD 


NO - ANY ON THIS CYL ? 


0003CAI 


4534 FFOO 


=0002CEI 


459 




CLH 


R3,HDTAB(B4) 




*0003CEI 


2337 




460 




BE 


AVAIOO 




0003DOI 


2631 




461 




AIS 


83,1 


YES 


0003D2I 


4030 8970 


=0005461 


462 




STH 


R3,HEAD 


INCREMENT HEAD 


0003D6I 


0788 




463 




XAR 


Re,R8 


ZERO SECTOR 


0003D8I 


4300 FFCE 


=0003AAI 


464 




B 


AVAIL4 




0003DCI 


4830 8964 


=0000441 


465 


AVAIOO 


LH 


R3,CYL 


GET NEXT CYL # 


0003E0I 


2631 




466 




AIS 


R3,1 




0003E2I 


4030 895E 


=0000441 


467 


AVACON 


STH 


R3,CTL 


SAVE NEW CYL VALUE 


000 3E6I 


0788 




468 




XAR 


R8,R8 


ZERO SECTOR 


0003E8I 


4080 895A 


=0000461 


469 




STH 


R8,HEA0 


ZERO OUT HEAD 


0003ECI 


4300 FFA4 


=0003941 


470 




B . 


AVAILS 


GO SEEK 




OOCC 03F0I 


471 


AVAIL1 


EQU 


* 




0003FOI 


4130 86A8 


=000A9CI 


472 




BAL 


R3,«DFT 




0003?l*l 


4130 806C 


=0004641 


473 




BAL 


R3,HDISC 


READ 


0003F8I 


2681 




474 


AVACTN 


AIS 


R8,1 




0003FAI 


4840 8954 


=0000521 


47 5 




LH 


R4,TaKDEM 




U0Q3FEI 


4584 FED4 


=0002061 


476 




CLH 


R8,SECTAB(R4) 




0004021 


2333 




477 




BES 


AVAIL6 


YES 


0004041 


4300 8024 


=00042CI 


478 




B 


AVASRD 


NO - RETURN 


0004081 


4830 893A 


=0000461 


479 


AVAILS 


LH 


R3,HSAD 


INC. THE HEAD IF POSSIBLE 


00040CI 


4534 FEBE 


=0002CEI 


480 




CLH 


a3,HDTAB(R4) 




*000410I 


2336 




481 




BE 


AVAfCy 


NOT POSSIBLE 


0004121 


2531 




482 




AIS 


R3,1 


SET THE HEAD 


0004141 


4030 892E 


=0000461 


4 83 




STH 


S3, HEAD 


TO 1 


0004181 


0788 




484 




XAS 


R3,S8 


SET SECTOR TO ZERO 


00041AI 


23C9 




48 5 




BS 


AVAEND 




00041CI 


4830 3924 


=0000441 


486 


AVASCY 


LH 


S3,CyL 


GET THE CYLISDER VALUE 


0004201 


2631 




487 




AIS 


R3,1 





MDLO4330 

MDL04340 

aOL04350 

MDL04360 

MDL04370 

flDL04380 

MDL04390 

MDL04400 

MDi04410 

MDL04420 

MDL04430 

KDL04440 

HDL04450 

KDL04460 

HDL04470 

M0L04480 

MDL04490 

!fDL04500 

MDL04510 

HDL04520 

MDL04530 

MDL04540 

MDL04550 

HDI045S0 

MDL04570 

MDL04580 

MDL04590 

MDL04600 

SDL04&10 

MDL04620 

MDL04630 

MDL04640 

MDL04650 

MDL04660 

MDL04670 

MDL04680 

SDL04690 

MDL04700 

SDL04710 

M0L04720 

MDL04730 

MDL04740 

HDL04750 

?1DL04760 

MDL04770 

MDL04780 

MDL04790 

MDL04800 

M0L04810 

MDL04820 

MDL04830 

MDL04B40 

MDL04850 

MDL04860 

SDL04870 
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0001*221 4030 891E =O00D'*l»I 

000K26I 0788 

0004281 4080 891A =0000461 

00042CI 5830 890C =O00D3CI 

00Q430I 0303 



0000 04321 

0004321 2450 

0004341 5840 SSEO =000D18I 

0004381 D324 0000 

00043CI 0752 

00043EI 2641 

0004401 5540 88D8 =000D1CI 

0004441 2oee 

0004461 D324 0000 

00044AI 0752 

00044CI D320 89B3 =O0OE08I 

0004501 0552 

0004521 2135 

0004541 C810 OOFF 

0004581 4300 8800 =OO0C5CI 

00045CI C810 OOEE 

0004601 4300 87F8 =0O0C5CI 



488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

50 4 

50 5 

506 

507 

508 

509 

510 

511 

512 

513 

514 

516 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 



AVACY1 STH B3,CYL SAVE THE KEK CYLINDER 

XAH R8,a8 ZERO OUT THE SECTOR 

STH as, HEAD ZERO OUT THE HEAD 

AVAEND LDA R3,AVARTN GET THE RETURH ADDRESS 
BR H3 

* THIS BOUTIHE HILL CALCULATE CHKSUH ON THE PROGBAn LOADED 

* INTO MEMORY, AND CORPARE IT TO THE CH.KSU?! BYTE IN THE PDB OF 

* THE LOADED PROGBAH. 



CHKSUM 



CHK1 



NORTRH 



CHKEBB 



EQU 
LIS 
LDA 
L8 
XAR 
AIS 
CLA 
BLS 
LB 
XAR 
LB 

CLAR 
BHES 
LHI 
B 

LHI 
B 

BEAD 
ENTRY POINT 



IF CHKSOMS = X'FF' WILL BE DISPLAYED 

IF CHKSUMS NOT = X'EE* WILL 3E DISPLAYED 

CALCULATE THE CHKSUM BYTE 
R5,0 
84, LOW 
R2,0(B4) 
R5,R2 
34,1 
B4,HIGH 
CHK1 

R2,0(R4) 
36, R2 
R2,PDB+24 
R5,a2 
CHKERR 
R1,X'FF' 
ERBOB 
81,X'EE' 
ERROR 



GET A BYTE 

X OR INTO CHKSUM BYTE 

BUHP POINTER 

= MAX ? 

HO 

YES - X OR LAST BYTE 

R5 = CHKSUM 

GET THE BYTE FROM THE PDB 

CHKSUM OK ? 

NO 

YES - DISPLAY FF 

NORMAL TERMINATION 

CHKSDM ERROR 

TERMINATION 



OPERATION 



BDISC THIS ROUTINE PERFORM A READ OF ONE 

SECTOR FROM THE DISC. 

READPB THIS ENTRY HILL READ ONE RECORD FROM 

MAG TAPE. 

INPUT : B3 = RETURN ADDRESS 

R5 = LOW ADDRESS OF THE BUFFER TO BE READ 

R6 = HIGH ADDRESS OF THE BUFFER TO BE BEAD 

RA = DEVICE ADDRESS 

RB = SELCH ADDRESS (IF ANY) 

HC = CONTROLLER ADDRESS (IF ANY) 

R1 = EOV RETURN (IF A MAG TAPE READ) 

OUTPUT: R5 = SAME 
RA = SAME 
BB = SAME 
RC = SAME 

REGISTERS USED: 

81 

82 

DESIGNATED BUFFER AREA CONTAINS THE DATA 



HDL04880 

HDL04890 

MDL04900 

MDLO4910 

MDL04920 

MDL04930 

MDL04940 

MDL04950 

MDL04960 

HDL04970 

MDL04g80 

MDL04990 

MDL05000 

MDL05010 

MDL05020 

MDL05030 

HDL05040 

MDL05050 

MDL05060 

MDL05070 

HDL05080 

HDLQ5C90 

SDL0 5100 

MDL05110 

MDL05120 

HDL0513a 

MDL05140 

MDL0 5150 

MDL05160 

MDL05170 

BDL05180 

MDL05190 

MDL05200 

HDL05210 

MDL05220 

MDL05^30 

HDL05240 

HDL05250 

MDL05260 

BDL05270 

HDLO52e0 

MDL05290 

MDL05300 

HDL05310 

NDLOS320 

BDL05330 

MDL05340 

IIDL05350 

MDL05360 

HDL05370 

HDL05380 

HDL05390 

MDL05400 

SDL05410 

MDL05420 
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543 


* 




READ FROH 










544 


* 














545 


* 








0000 


04641 




546 


RDISC 


EQU 


* 


000461*1 


50 30 


8 8B8 


=0000201 


547 




. STA 


a3,WRTEKD 


oooteai 


2435 






548 




LIS 


B3,5 


oocteAi 


4030 


88F2 


=000D60I 


549 




STH 


H3, RETRY 


00046EI 


243F 






550 




LIS 


R3,15 


0004701 


40 30 


88E2 


=0000561 


551 




STH 


R3,RHDE¥ 


0004741 


4300 


8044 


=0004BCI 


552 




B 


DISC 




0000 


04781 




553 


KEADPB 


EQU 


* 


0004781 


5030 


88A4 


=OOOD20I 


554 




STA 


R3,WSTEHD 


00047CI 


5010 


88A4 


=0000241 


555 




STA 


R1,20VRTH 


0004801 


2415 






556 




LIS 


HI, 5 


0004821 


4010 


88DA 


=000D60I 


557 




STH 


R1, RETRY 


0004861 


24 30 






558 




LIS 


R3,0 


0004881 


4030 


38CA 


=O0OD56I 


559 




STH 


R3,8«DET 


00048CI 


DEAO 


8874 


=0000041 


560 




OC 


BA,DISABL 


0004901 


08EB 






561 


MTRJ 


LDAR 


RB,RB 


0004921 


4230 


8026 


=0004BCI 


562 




BHZ 


SELHRT 


0004961 


2430 






56 3 




LIS 


R3,0 


0004981 


4030 


88BE 


=000D5ftI 


564 




STH 


R 3, S EL ERR 


00049CI 


D320 


8867 


=0OODO7I 


565 




LB 


R2,»TREAD 


0004A0I 


9EA2 






566 




OCR 


RA,a2 


0004A2I 


9DA7 






567 


SEB 


SS8 


HA,R7 


0004A4I 


2081 






568 




BTBS 


8,1 


0004A6I 


DBfl5 


0000 




569 




RD 


RA,0(85) 


0004AAI 


2651 






570 




AIS 


R5,1 


0004ACI 


0556 






571 




CLAR 


R5,R6 


'0004AEI 


2086 






572 




BC 


SRB 


♦0004BOI 


2237 






573 




BE 


SRB 


0004B2I 


9DA7 






574 




SSR 


BA,B7 


0004B4I 


4270 


a0B8 


=0005701 


575 




BTC 


7,«rER8 


0004B8I 


4300 


809E 


=00055AI 


576 




B 


C0NMT1 




0000 


04BCI 




577 


DISC 


EOU 


* 


0004BCI 


DEEO 


884C 


=000D0CI 


578 


SELWBT 


OC 


aB,STOP 


0004C0I 


C820 


FOOO 




579 




LHI 


R2,X'F000' 


0004C4I 


1124 






580 




SLL3 


32,4 


0004C6I 


0425 






58 1 




HAR 


32, R5 


0004C8I 


1028 






582 




SRLS 


H2,a 


0004CAI 


1028 






583 




S8LS 


32,3 


0004CCI 


C8 30 


FOOD 




584 




LHI 


R3,X'F0O0' 


0004DOI 


1134 






585 




SLLS 


R3,4 


0004D2I 


0436 






585 




NAS 


33, R6 


0004D4I 


1038 






587 




SRLS 


a 3,8 


0004D6I 


1038 






588 




SRLS 


R3,8 


0004D8I 


0833 






589 




LDAR 


F3,F3 


0004DAI 


2332 






590 




BZS 


C0NT4B 


Q004DCI 


9AB2 






591 




HDR 


33, R2 


0004DEI 


98E5 






592 


■CCNT43 


WHR 


SB, 35 


0004EOI 


0833 






593 




LDAR 


R3,R3 


0004E2I 


2332 






594 




BES 


C0NT4C 


00Q4E4I 


9AE3 






595 




HDB 


Ra,^3 


0004E6I 


98E6 






596 


C0ST4C 


WHR 


RB,R6 


0004E8I 


5050 


883C 


=0005281 


597 




STA 


R5,STADD 



SET THE RETRY COUNT 
SET THE DISC INDICATOR 



SAVE THE EOV BRANCH ADD. 
SET THE WHITE RETRY COUNTER 
TO FIVE 
SET THE HAG TAPE INDICATOR 



SELCH ? 

HO 

ZERO GOT THE SELCH ERROR FLAG 

GET THE READ COHBAND 

OUTPUT THE READ COHMAND 

SENSE STATUS 

WAIT FOR BUSY NOT 

READ DATA 

BUMP 

DONE?? 

NO, LOOP 

SO, LOOP 

SENSE STATUS 

ERROR 



STOP THE SELCH 
IS THIS A 20 
BIT ADDRESS ? 

YES - SET UP THE SELCH ilTH 
5 BYTES OF ADDRESS 

GET THE HIGH ORDER DIGITS 
OF THE ADDRESSES IN R2 E, H3 



WRITE THE FIRST BYTE 
WRITE THE 2ND + 330 BYTES 



WRITE THE 4TH BYTE 

HRITE THE STH K STH BYTES 

SAVE THE START ADDRESS. 



S<DL05430 
MDL05440 
HDL05450 
MDL05460 
MDL05470 
MDL05480 
MDL05490 
NDL05500 
MDL0 5510 
MDL05520 
HDL05530 
SDL05540 
SDL05550 
MDL05560 
aDL05570 
BDL0558 
SDL05590 
HDL05600 
MDLOSeiO 
SDL05620 
aDL05630 
MDL05640 
BDL05650 
HDL05660 
MDL05670 
MDL05680 
MDL05690 
aDL05700 
HDL05710 
MDL05720 
aDL05730 
HDL05740 
SDL05750 
flDL05760 
MDL05770 
HDL05780 
•IDL05790 
XDLOSSOO 
MDL05810 
i1DL05820 
«DL05830 
MDL05840 
•1DL05850 
MDLOSBSO 
MDL05370 
?!DL05880 
MDL05890 
I1DL05900 
.1DL0 5910 
MDL05920 
IDLOSgSO 
.1DL05940 
aDL05950 
HDL05960 
?1DL05970 
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000«ECI 


6060 


883C 


=0OOD2CI 


598 




ST A 


R6,FADD 


0004F0I 


4030 


8860 


=000n541 


599 




STH 


R3,SELIND 


OOOUFKI 


4820 


885E 


=000D56I 


600 




LH 


H2,RWDEV 


000UF8I 


4230 


80B8 


=00C5B4I 


601 




BNZ 


SELDIS 


OOOOFCI 


0833 






50 2 




LDAS 


H3,R3 


OOQltFEI 


2337 






503 




BZS 


SEL 


0005001 


D310 


8803 


=0000071 


604 




LB 


R1,>fTSEAD 


000501*1 


9EA1 






605 




OCR 


EA.fil 


0005061 


DEEO 


8808 


=000D12I 


606 




OC 


RB,ESBEAD 


00050AI 


2306 






607 




BS 


SEL1 


00050CI 


D310 


87F7 


-000D07I 


608 


SEL 


LB 


RI.HTREAD 


0005101 


9ER1 






609 




OCR 


HA,S1 


0005121 


DEEO 


87FE 


=0000131 


610 




OC 


Ha,saEAD 




0000 


05161 




611 


SEL1 


EQU 


* 


0005161 


2400 






612 




LIS 


R0,3 


0005131 


4000 


883E 


=000D5AI 


613 




STH 


HO,SELERR 




0000 


05icr 




614 


C0NT5B 


EQU 


* 


00051CI 


9DE0 






615 




SSR 


RB,RO 


00051EI 


2081 






616 




Bias 


8,1 


0005201 








617 




IFNZ 


ADC-2 


0005201 


48 50 


8830 


=000D54I 


618 




LH 


R5,SELIND 


0005241 


0855 






619 




LDAR 


B5,R5 


000 5261 


2334 






620 




BZS 


SELST 


0005281 


DEBO 


87E1 


=OOOD0DI 


621 




OC 


RB, ESTOP 


00052CI 


2303 






622 




BS 


SELST1 


00052EI 


DEBO 


87Dft 


=000DOCI 


623 


SELST 


OC 


RB.STOP 




0000 


05321 




624 


SELST1 


EQU 


* 


0005321 


2460 






625 




LIS 


R6,0 


00053«I 


0855 






626 




LDAB 


35,85 


*000536I 


2334 






627 




BZ 


SELIS2 


0005381 


9BB6 






628 




RDR 


8B,R6 


00053AI 


1168 






629 




SLLS 


R6,3 


00053CI 


1168 






630 




SLLS 


R6,8 


00053EI 


2470 






631 


SELIN2 


LIS 


87,0 


0005*01 


99B7 






632 




RHR 


RB,B7 


0005421 


0667 






633 




0A8 


R6,87 


00051HI 


58 70 


87E4 


=000D2CI 


634 




LDA 


E7,FADD 


0005481 


0576 






635 




CLAR 


R7,R6 


*00054AI 


2135 






636 




BNE 


SELIN9 


00054CI 


2400 






637 




LIS 


R0,0 


00054EI 


4000 


8808 


=000D5ftI 


638 




STH 


80, SEL ERR 


*000552I 


2304 






639 




B 


CONST 1 


0005541 


240F 






640 


SELIN9 


LIS 


R0,15 


0005561 


4000 


8800 


=000D5AI 


641 
642 
643 
544 
645 
646 
647 
648 




STH 

ELSE 

OC 

BHR 

CLHR 

BNES 

LIS 

STH 


BO, SEL ERR 

RB,STOP 

RB,R9 

86, R9 

SELIH4 

B9,0 

89,SELERR 










649 


SELIN3 


B 


C0NHT1 










650 


SELIN4 


LIS 


89,15 










651 




STH 


S9,SELERR 










552 




ENDC 





GET SELCH TYPE 

NORMAL SELCH 

GET XAG TAPE READ CO'iHAND 

OUTPUT THE MAG TAPS SEA!) COXSAND 

GIVE THE E3ELCH READ CCHMASD 

NORMAL SELCH 

OUTPUT THE !1AG TAPE READ COMMAND 

GIVE SELCH READ COKKAND 



SENSE STATUS 
WAIT FOR BUSY SOT 

2 OR 3 BYTES OF ADDRESS ? 

SET THE CONDITION OODE 

5 DIGIT ADDRESS ? 

GIVE THE ESELCH STOP COMMAND 

GIVE THE SELCH STOP COKMAND 



2 - BRANCH 

3 - BEAD THE MOST SIG. BITE 
SHIFT 8 

SHIFT 8 

READ A HALFW08D 
R6 = FINAL ADDRESS 
GET THE FINAL ADDRESS 
COMPARE THE ADDRESSES 



SET NO SELCH ERROR 

CONTINUE 

SET SELCH 

ERROR 

YES 

READ END ADDRESS 

COMPARE ADDRESSES ? 

SET NO 
SELCH ERROR 
CONTINUE 
SET SELCH 
ERROR 



MDL05980 

MDL05990 

MDL06000 

HDL06010 

MDL06020 

MDL06030 

MOL06040 

.MDL06050 

HDL06060 

MDL06070 

MDL06080 

aDL06090 

MDL06100 

MDL06110 

MDL06120 

MDL06130 

MDL06140 

MDL06150 

MDL06160 

MDL06170 

SDL06180 

MDL06190 

MDL06200 

HDL06210 

MDL06220 

MDL06230 

RDL06240 

HDL06250 

HDL06260 

MDL06270 

MDL06280 

MDL06290 

MDL06300 

NDL06310 

HDL06320 

SDL06330 

MDL06340 

HDL06350 

"1DL06360 

aDL06370 

BDL06380 

MDL06390 

MDL06.400 

MDL06410 

HDL06420 

MDL06430 

HDL06440 

NDL06450 

SDL06460 

HDL06470 

BDL05480 

HDL06490 

MDL06500 

MDL06510 

MDL06520 
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00055AI 


9DA1 






653 CON" 


ITI SSH 


RA.RI 


00055CI 


C310 


0010 




554 


THI 


R 1 , X ' 1 • 


0005601 


2233 






655 


BZS 


C0NST1 




0000 


0562T 




656 COS? 


!T9 EQU 


» 


0005621 


C310 


OOCO 




657 


THI 


R1,X'C0' 


0005661 


2135 






658 


3MZS 


MTERB 


0005681 


U8 30 


87EE 


=O00D5AI 


659 


LH 


R3,SELEBR 


00056CI 


l»330 


ao3A 


=0005AAr 


660 


BZ 


MTEND 




0000 


05701 




661 MTSSK EQU 


* 


0005701 


9DA1 






552 


SSR 


RA,R1 


0005721 


C310 


0010 




653 


THI 


R1,X'10' 


0005761 


22 33 






664 


BZS 


MTESR 


0005781 


9EA1 






665 


SSR 


RA,R1 


00057AI 


C310 


0040 




665 


THI 


R1,X"40' 


00057EI 


233H 






667 


BZS 


HTERRW 


0005801 


58 30 


87A0 


=0000241 


668 


LDA 


R3,H0VRTN 


00058111 


03C3 






569 


BS 


R3 


0005861 


48 30 


87D6 


=0003601 


670 MTEBHW LH 


R3, RETRY 


00058AI 


2135 






671 


BNZS 


MTERB1 


00058CI 


C8 10 


00E3 




672 


LHI 


31,X*E3' 


0005901 


4300 


85E4 


=000C78I 


673 


B 


EHRA 


0005941 


2731 






674 MTERB1 SIS 


R3,1 


0005961 


4030 


87C6 


=0000601 


675 


STH 


R3, RETRY 


00059AI 


4100 


84EA 


=O00A88I 


676 


BAL 


R0,NOMOTN 


00059EI 


DEAO 


876D 


=000D0FI 


677 


OC 


RA,BKSP 


0005A2I 


4100 


84E2 


=OO0A88I 


678 


BAL 


R0,H0«0TN 


0005A6I 


4300 


FEE6 


=0004901 


679 


3 


MTRY 




0000 


05AAI 




68 ST END EQU 


* 


0005AAI 


DEBO 


975E 


=000D0CI 


631 


OC 


RB,STOP 


0005AEI 


5830 


S76E 


=00^0201 


632 


LOR 


S3,WRTE«ID 


0005321 


0303 






683 


BS 


R3 


0005B4I 


9DC1 






634 SELDIS SS8 


RC,R1 


0005B6I 


2221 






685 


BFBS 


2, SELDIS 


0005381 


4130 


S4E0 


=000A9CI 


636 


BAL 


R3,WDFT 


0005BCI 


48 70 


8792 


=0000521 


687 


LH 


R7,TRKDEN 


0005C0I 


C570 


0004 




538 


CLHI 


R7,4 


'OOOSCltl 


218C 






589 


SL 


SELD3 


0005C6I 


9AC8 






590 


WDR 


SC,R8 


0005C8I 


4870 


877A 


=0000461 


691 


LH 


R7,HEAD 


0005CCI 


117A 






592 


SLLS 


R7,10 


0005CEI 


4810 


8772 


=0000441 


693 


LH 


R1,CYL 


0005D2I 


0671 






594 


CAR 


R7,R1 


0005D4I 


98C7 






595 


WHR 


3C,H7 


0005D6I 


9DC7 






696 


SSR 


3C,37 


0005D3I 


22 21 






697 


BFSS 


2,1 


'0005DAI 


2306 






598 


B 


■:ELD2 


0005DCI 


4810 


8766 


=000D46I 


699 SEL. 


D3 LH 


SI, HEAD 


0005E0I 


1115 






700 


SLLS 


R1,5 


0005E2I 


0618 






701 


CAR 


3 1 , R 3 


0005E4I 


9AC1 






702 


WDR 


RC,R1 


0005E6I 


48 30 


g76A 


=0000541 


703 SEL 


D2 LH 


a3,SSLISD 


0005EAI 


0833 






704 


LDAR 


R 3 , R 3 


0005ECI 


2337 






705 


BZS 


DSEL 


0005EEI 


D310 


3719 


=0000031 


706 


LB 


R1, DREAD 


0005F2I 


9EC1 






707 


OCR 


ac,3i 



so - THE HAGTAPE 
WAIT FOR SO MOTION 



AMY ERROR ? 

YES - TRY TO RECOVER 

SO - SELCH ERROR ? 



YES - CHECK FOR EOF. 

EOF ? 

NO 

YES - TAKE THE EOF RETURS 

TRY TO RECOVER 

RECOVERY DSSUCCESSFUL 



WAIT FOR NO MOTION 
BACKSPACE THE FILE 
iJAIT FOR NO MOTION 



STOP SELCH 



WAIT 
CONTROLLER IDLE 



WRITE SECTOR 
SCALE 
SIEBGE CYL 



POSITION THE HEAD BIT 

SET UP THc HEADER 

ESELCH ? 

EXTENDED SELCH CO«KANDS 
START DISC 3EAD 



!<DL06530 

!fDL06540 

>1DL06550 

.•DL05560 

HDL06570 

SDL05580 

SDL06590 

•IDL06600 

MOL06610 

."■DL05520 

1DL06630 

KDL06640 

MDL06650 

HDL05660 

BDL06670 . 

MDL06680 

?1DL06690 

1DL05700 

aDL06710 

!1DL05720 

.".DL0 5730 

!<DL0674C 

MDL05750 

.<tDL06750 

MDL05770 

MDL06780 

HDL06790 

XDL06800 

MDL06810 

.'^.DL06S20 

«DL05,830 

«DL06840 

51D,L05850 

MDL06860 

?iDL06870 

?!DL06880 

1DL06890 

;!CL06900 

«DL05910 

nDL06920 

MDL06930 

KDL06940 

.",DL06950 

XDL05960 

1DL05970 

"DL06980 

MDL05990 

.fDL07000 

"0107010 

«.DL07020 

.1DL07Q30 

MDL07040 

MDL07050 

:iDL07060 

.1DL07070 
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0005F4I 


DEBO 871A = 


000D121 


708 




DC 


HB,ESREAD 


OOOSFSI 


2306 




709 




33 


3ELD1 




0000 05FAI 




710 


DSEL 


EQU 


* 


0005FAI 


D310 870D = 


OOODOBI 


711 




L3 


a 1, DREAD 


0Q05FEI 


9EC1 




712 




OCR 


RC,R1 


0006001 


DEBO 870F = 


0000131 


713 




CC 


RB, 38EAD 




0000 06041 




714 


SELtl 


EQU 


* 


oooeom 


2400 




715 




LIS 


R0,0 


0006061 


4000 8750 = 


;O00D5AI 


716 




STH 


RO,SELERB 


00060AI 


9EB0 




717 




SSR 


SB,RO 
8,1 


00060CI 


2081 




718 




BTBS 


00060EI 
00060EI 


4850 8742 = 


=0000541 


719 
720 




IFNZ 
LH 


ADC-2 
R5,3ELIND 


0006121 


0855 




721 




LDAH 


3 5,R5 


00061H1 


2334 




722 




BZS 


SEL3TD 


0006161 
00061AI 


DEBO 86F3 ' 
2303 


=0000001 


723 

724 




CC 
BS 


g3, ESTOP 
SEL3T1D 


00061CI 


DERO 86EC = 


=O0OD0CI 


72E 


3EL3TD 


OC 


RB,3T0P 




0000 06201 




726 


SEL3T1D 


E2U 


* 


0006201 


2460 




727 




LIS 


a6,o 


0006221 
'00062MI 


0855 
2334 




728 
729 




LDAR 
BZ 


85,85 
SELIH2D 


0006261 


9fiE6 




730 




Hoa 


a3,R5 


0006281 


1168 




731 




SLLS 


36,8 


00062AI 


1168 




732 




SLLS 


B6,8 


00062CT 


2470 




733 


SELIN2D 


LIS 


87,0 


00062SI 


99B7 




734 




BHR 


83,87 


0006301 


0667 




735 




OAR 


36,37 


0006321 


5870 86F6 


=000D2CI 


736 




LDA 


R7,FADD 


0006361 
*000638I 
*00063AI 


0576 
2132 
2304 




737 
738 
739 




CLAR 

BN'E 

B 


R7,B6 

3ELIN9D 

C0HD31 


00063CI 


24CF 




740 


SELIN9D 


LIS 


HO, 15 


00063EI 


4000 8718 


=OO0D5AI 


741 
742 
743 
744 
745 
746 
747 
748 




STH 

ELSE 

OC 

SHE 

CLHE 

BNES 

LIS 

STH 


aO,SELERE 

KB, STOP 

RB.Rg 

S6,89 

SELIN4D 

R9,0 

R9,SELESR 








749 


SELIN3D 


B 


C0NDS1 








750 


SELIN4D 


LIS 


R9,15 








751 




STH 


a9,SELERR 








7 52 




ESDC 




0006421 


4130 34FC 


=000?42I 


753 


C0NDS1 


BAL 


R3,3ETC0!i 


0006461 


4810 870E 


=0000581 


754 


C0SDS3 


LH 


ai,CONSTA 


00064AI 

00064EI 

0006501 

*000654I 


C310 0001 
2134 

4810 8706 
233D 


=000D5AI 


755 
756 
757 

758 




THI 
BNZS 
LH 
BZ 


R 1 , X ' 1 ' 
DSCEBR 
R1,3ELERa 
DSCESO 

— t -^ r^ r^ TV r\ ir 


0006561 
00065AI 


4830 8706 
2135 


=0000601 


759 
760 


DSCEBR 


LH 
BSZ3 


S3, RETRY 
DSERRI 


00065CI 


C810 00E3 




761 




LHI 


H1 ,K ' E3' 


0006601 


4300 9614 


=0OOC78I 


762 




B 


ERRA 
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START THE ESELCH READ 

-JDR'AL SELCM COMMAND READ / WRITE 
GET DISC READ CMD 
START DISC BEAD 
START THE SELCH READ 



SENSE STATUS 
SAir FOR BUSr NOT 

2 OR 3 BYTES OF ADDRESS ? 

SET THE CONDITION CODE 

5 DIGIT ADDRESS ? 

GIVE THE ESELCH STOP CC^RANC 

GIVE THE SELCH STOP COMKAiJD 



2 - BRANCH 

3 - READ THE «03T SIG. BYTE 
SHIFT 8 

SHIFT 8 

READ A HALFWORD 
36 = FIHAL ADDRESS 
GET THE FINAL ADDRESS 
COMPARE THE ADDRESSES 

COXTIS'JE 

SET SELCH 

Eaaoa 

YES 

READ EHD ADDRESS 

COMPARE ADDRESSES ? 

SET SO 
SELCH ERROR 
CONTINUE 
SET SELCH 
ERROR 



CONTROLLER ERROS 

TRY TO RECOVER 
RECOVERY UNSaCCESSFaL 



fiDL07080 

SDL07090 

KDL07100 

;iDL07110 

1DL07120 

MDL07130 

MDL07140 

?!DL07150 

MDL07160 

MDLO7170 

KDL071hO 

•■!DL07 190 

fDL07200 

HDL07210 

MDL07220 

I1DL07230 

MDL0724G 

Mm.07250 

MDL07260 

MDL07270 

nDL0723Q 

MDL07290 

KDL07 30C 

KDL07310 

MDL07320 

1DL0733C 

MDIj7340 

KDL07350 

I1D107360 

KIL07370 

KDL0738C 

XDL07390 

NDL07400 

SDL07410 

!1LI'J7420 

HDL0743C 

BOL',7440 

BLL07450 

MDL".7460 

KJLCi7470 

KDI074a0 

KDI07490 

MBl'j7500 

M&107510 

(1D:.-^7520 

!'iD:'j7330 

«l>::,7540 

KD:-,7 550 

BD-V7560 

KD:,-j7 570 

IS--; 7 58 

^:-l-.7590 

«1-.'.J7500 

«t'.:7610 

>«-1^7620 
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00066UI 


2731 






763 


DSESBI 


SIS 


H3,1 


0006661 


10 30 


86F6 


=OOOD60I 


764 




STH 


S3,SETSY 


00066AI 


4300 


FE4E 


=QO048CI 


765 




B 


SELWBT 


00066EI 


4130 


8 46C 


=00OADEI 


766 


DSCEND 


BAL 


B3,FBS8H 


0006721 


DEED 


8696 


=OOODOCI 


767 




OC 


sB,3T0P 


0006761 


58 30 


86A6 


=0000201 


768 




LDA 


Ra.HRTESD 


00067AI 


0303 






769 




BR 


R3 




0000 


067CI 




770 


LIST 


EQO 


* 


00067CI 


0722 






771 




XAR 


R2,R2 


00067EI 


4020 


86DA 


=000D5CI 


772 




STH 


a2,LINCNT 


0006821 


E630 


8008 


=00068EI 


773 




LDAI 


R3,STPaiH 


0006861 


5030 


83BA 


=0 00A44I 


774 




ST A 


R3,FIITaTH 


00068AI 


4300 


81 AC 


=00083AI 


775 




B 


LIHEND 




0000 


068EI 




776 


STPBIH 


EQU 


* 


00068 EI 


C800 


0047 




777 




LHI 


R0,71 


0006921 


E670 


B35A 


=0009F0I 


778 




LDAI 


R7, HEADER 


0006961 


4130 


82BC 


=0009561 


779 




BAL 


H3, PRINT 


00069AI 


E630 


8O0 8 


=0006A6I 


780 




LDAI 


R3,PRKTTL 


00069EI 


5030 


83A2 


=000A44I 


781 




ST A 


R3,FMTRTN 


0006A2I 


4300 


8194 


=0008 3 AI 


782 




B 


LINESD 




0000 


06A6I 




783 


pa HIT L 


EQO 


* 


0006A6I 


48 40 


007A 




784 




LH 


a4,X'7A' 


0006AAI 


4230 


8022 


=0006D0I 


785 




BNZ 


LSTDIS 


0006AEI 


DEAO 


8653 


=0000051 


786 




OC 


RA, CLEAR 


0006B2I 


DEAO 


8652 


=000D08I 


787 


LISHT1 


OC 


RA,F»F« 


0006B6I 


4100 


8 3CE 


=O0OA88I 


788 




BAL 


aO,MOMOTH 


0006BAI 


E650 


8732 


=0OODFOI 


789 




LDAI 


R5,PDB 


0006BEI 


E660 


3760 


=O0OE22I 


790 




LDAI 


a6,PDB+50 


0006C2I 


E610 


FC8E 


=0004541 


791 




LDAI 


R1,H0STH« 


0006C6I 


4130 


FDAE 


=0004781 


792 




BAL 


R3,fiEADPB 


0006CAI 


4130 


80BC 


=0OQ78AI 


793 




BAL 


aS.FORHAT 


*0006CEI 


22CE 






794 




B 


LISMT1 




0000 


06D0I 




795 


LSTDIS 


EQU 


* 


0006DOI 


4130 


840A 


=OOOADEI 


796 




BAL 


R3,FRSRW 


0006D4I 


D330 


F932 


=OOOOOAI 


797 




LB 


H3,30D 


0006D8I 


4030 


8668 


=0000441 . 


798 




STH 


R3,CYL 


0006DCI 


0788 






799 




XAa 


E8,R3 


0006DEI 


4080 


8664 


=0000461 


800 




STH 


88, HEAD 


0006E2I 


4130 


83B6 


=000A9CI 


801 


LSTDSO 


BAL 


R3,HDFT 


0006E6I 


DEAO 


8627 


=0000111 


302 




OC 


aA,BESTOa 


0006EAI 


4130 


83F0 


=000ADEI 


803 




BAL 


R3,FRSRH 


0006EEI 


E650 


8732 


=000E24I 


804 




LDAI 


R5, DIRECT 


0005F2I 


E660 


882D 


=000F23I 


805 




LDAI 


R6,DIRECT+255 


0006F6I 


4130 


FC96 


=0003901 


806 




BAL 


R3,AVAILR 


0006FAI 


40B0 


834E 


=000" 4CI 


807 




STH 


R8,DI8PRfI 


0006FEI 


4880 


8642 


=0OOD44I 


808 




LH 


a8,CYL 


0007021 


4080 


8348 


=000A4EI 


809 




STH 


R8,DIRPRM+2 


0007061 


4880 


8 6 3C 


=0000461 


810 




LH 


H8,HEAD 


00070AI 


4080 


8342 


=000A50I 


811 




STH 


R3,DIRPRM+4 


00070EI 


0722 






812 




XAR 


R2,R2 


0007101 


4832 


8712 


=000E26I 


813 


LSTCS1 


LH 


R3,DIRECT+2(R2) 


0007141 


4330 


FD3C 


=0004541 


814 




BZ 


SORrRM 


0007131 


C530 


EEEE 




815 




CLHI 


R3,X'EEE£' 


00071CI 


4330 


8040 


=0007601 


816 




BE 


LSTXYZ 


0007201 


4882 


8704 


=000E23I 


817 




LH 


a8,DIRECT+4(a2) 



aAIT FOR DISC ADD. INTERLOCK 



ZERO LINE COUNT 



SAVE RETURN 
DO A CR - LF 



PRIST THE HEADER 



LIST OF MAG TAPE 7 
MO - DISC 
YES - MAG TAPE 
FORWARD FILE MARK 



END IF SO? 
GO READ 



LIST THE DISC 

GET START 
SET CYL TO ONE 
SET SECTOR TO ZERO 
SET HEAD TO ZERO 

RESTORE THE FILE 



READ THE DIRECTOaY 
SAVE THE PAKAMETEaS FOR 
THE NEXT SECTOR 
OF DIRECTORY. 



ZERO POINTER 

GST THE THIRD DIGIT OF THE NUMBER 

= ZERO ? - YES END 

IS IT THE KNOWN INFO. INDICATOR ? 

YES 

NO - LIST 



MDL07630 
!'iDL07640 
HDL07650 
HDL07660 

linT rtT £1 f\ 
ii L/J^V / \J t \J 

BDL07680 
MDL07690 
MDL07700 
MDL07710 
MDL07720 
HDL07730 
HDL07740 
MDL07750 
HDL07760 
HDL0777O 
MDL07780 
MDL07790 
MDL0780O 
MDL07810 
MDL07820 
HDL07830 
MDL07840 
NDL07850 
MDL07860 
HDL07870 
8DL07880 
MDL07a90 
SDL07900 
SDL07910 
^.DL07920 
HDL07930 
MDL07940 
MDL07950 
MDL07960 
MDL07970 
KDL07980 
■1DL07990 
HDLOBOOO 
HDL08010 
MDL08020 
MDL08030 
KDL08040 
MDL08050 
."1DL08060 
MDL08070 
HDL08080 
MDL08090 
KDL08100 
MDL08110 
MDL08120 
KDL08130 
MDL08140 
MDL08150 
•fDL08160 
MDL08170 
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0007241 


4080 851C 


=0000441 


818 


STH 


R8,CYL 




I1DL08180 


0007281 


D382 86FE 


=000E2AI 


819 


LB 


H8,DIHECT+5(32) 




MDL08 190 


00072CI 


D332 86FB 


=000E2BI 


820 


LB 


R3,DI8ECT+7(32) 




HDL08200 


0007301 


4030 8612 


=0000461 


821 


STH 


R3,HEAD 




!1DL082 10 


0007341 


4020 831A 


=000A52I 


822 


STH 


R2,DIRPRR+6 


SAVE B2 


MDL08220 

urNir f\ ^ ^ "^ r\ 


0007381 


4130 83A2 


=000ADEI 


823 


BAL 


R3,FRSBW 


HAIT 


MDL08 230 


00073CI 


4130 835C 


=OO0A9CI 


824 


BAL 


B3,WDFT 


SET UP FILE 


MDL08240 


0007401 


DEAO 85CA 


=OOOD0EI 


825 


CC 


RA,SEEK 


SEEK 


SBL08250 

^f\T fs n ^\ ^ ^ 


0007441 


4130 8396 


=000ADE1 


826 


BAL 


R3,FHSRW 


WAIT 


MDL08260 
HDL08270 
BDL08280 
HDL08290 

%^ T\f f\ rt '^ fK fk 


0007481 


E650 86A4 


=0OODFOI 


827 


LDAI 


B5,PDB 




00074CI 


E660 86D2 


=000E22I 


828 


LDAI 


a6,PDB+50 




0007501 


4130 8348 


=OO0A9CI 


829 


BAL 


R3,WDFT 




0007541 


4130 FDOC 


=0004641 


830 


BAL 


H3,SDISC 


READ PDB 


11DL08 300 
MDL08310 

^ITvT y\ r\ '^ ^^ ri 


0007581 


4130 802E 


=00078AI 


831 


BAL 


R3, FORMAT 




00075CI 


4820 82F2 


=000A52I 


832 


LH 


B2,DIFPRM+6 


RESTORE R2 


NDLOS 320 
SDL08330 

\M tvT /\ /^ ^ Jb A 


0007601 


2628 




833 LSTXYZ AIS 


R2,8 




0007621 


C520 0100 




834 


CLHI 


R2,X'100' 


= MAX ? 


HDL08340 


0007661 


4230 FFA6 


=0007101 


835 


BNE 


LSTDS1 


NO - MORE PROGS. THIS SECTOR 


HDL0a350 


00076AI 


4880 82E0 


=000A4EI 


836 


LH 


R8,DIRPRK+2 


YES - READ ANOTHER DIRECTORY SECTOR. 


MDL09360 


00076EI 


D480 F899 


=0000081 


837 


CLB 


R8,S0P 


DOSE?? 


MDL08 370 

U F*i T /\ 8^ "\ rt /*i 


0007721 


4380 FCDE 


=0004541 


838 


BNL 


NORTRK 


YES 


nDLO8380 


0007761 


4080 85CA 


=0000441 


839 


STH 


R3,CTL 


RESTORE . . 


KDL08390 

■j^T f\ n tt f\ f^ 


00077AI 


4880 82D2 


=O00A5OI 


840 


LH 


R8,DIEPB«+4 


CYL 


nDL08400 

mj WW At n It ^ fv 


00077EI 


4080 85C4 


=0000461 


841 


STH 


R8,HEAD 


HEAD 


HDL08410 


0007821 


4880 82C6 


=000A4CI 


842 


LH 


S8,DIRPRK 


SECTOR FOR THE NEXT SECTOR 


KDL0a420 
!!DL08430 

u nT r\ n 11 i. j~i 


0007861 


4300 FF58 


=0006E2I 


843 


B 


LSTDSO 






0000 078AI 




844 FORMAT EQU 


* 




nDL08440 


00078AI 


5030 82B6 


=0OOA44I 


845 


ST A 


B3,F«THTM 


SAVE RETURN 


HDL08450 


00078E1 


2402 




846 


LIS 


BO, 2 


PRINT 2 SPACES 


IIDL0e460 


0007901 


E670 e2A8 


=000A3CI 


847 


LDAI 


R7, SPACE 




HDL08470 
MDL08480 
MDL08490 


0007941 


4130 81BE 


=0009561 


348 


BAL 


83, PRINT 




0007981 


2403 




849 


LIS 


ao,3 




00079AI 


E670 8652 


=O0ODFOI 


850 


LDAI 


R7,PDB 




SDL08500 
HDL08510 


00079EI 


4130 31B4 


=0009561 


851 


BAL 


83, PRINT 




0007A2I 


2405 




852 


LIS 


HO, 5 


PRINT 5 SPACES 


HDL08520 

■^t%T r^ f\ f "^ t\ 


0007A4I 


E670 8294 


=0O0A3CI 


853 


LDAI 


R7, SPACE 




aDL08530 
HDL08540 


0007A8I 


4130 eiAA 


=0009561 


854 


BAL 


R3, PRINT 




0007ACI 


2403 




855 


LIS 


R0,3 


PRINT THE 06 - * 


SDL08550 


0007AEI 


E670 8641 


=000Dr3I 


856 


LDAI 


R7,PDB+3 




MDL08560 
aDL08570 


0007B2I 


4130 81A0 


=0009561 


857 


BAL 


E3, PRINT 




0007B6I 


2405 




8 58 


LIS 


HO, 5 


PRINT 5 SPACES 


HDLoeseo 


0007B8I 


E670 8280 


=000A3CI 


859 


LDAI 


R7, SPACE 




aDL08590 

^M r^t rK f\ y^ f\ ^\ 


0007BCI 


4130 8196 


=0009561 


860 


BAL 


R3, PRINT 




8DL08600 
HDL08610 


0007C0I 


2402 




861 


LIS 


R0,2 




0007C2I 


E670 8630 


=000DF6I 


862 


LDAI 


R7,PDB+6 




MDL08620 

uriT f\ /\ ^ ^i f\ 


0007C6I 


4130 818C 


=0009561 


863 


BAL 


R3, PRINT 




MDL08630 


0007CAI 


D300 863B 


=OOOE09I 


864 


LB 


R0,PDB+25 


LOAD EXTENSION 


KDL08640 

\t T\^ f\ f\ ^ e' r\ 


0007CEI 


C500 002E 




865 


CLHI 


RO,C*. • 


EXISTS? 


MDL08650 

iM T\ t f\ r\ ^ ^ r\ 


♦0007D2I 


2138 




866 


BNE 


F0RMAT1 


KG 


HDL08660 


0007D4I 


2402 




867 


LIS 


R0,2 


SET COUNT 


HDL08670 


0007D6I 


E670 862F 


=000E09I 


868 


LDAI 


B7,PDB+25 


SET START 


HDL0e680 

U T>.T f\ f^ JT f\ n 


0007DAI 


4130 8173 


=0009561 


869 


BAL 


B3, PRINT 




SDL0o690 


0007DEI 


2402 




870 


LIS 


R0,2 


PRINT ONLY 2 SPACES 


MDL08700 
MDL08710 
HDL08720 


*0007E0I 
0007'E2I 


2302 
2404 




871 B 

872 F0RKAT1 LIS 


F0RaAT2 
HO, 4 


PRINT 4 SPACES 
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0007E<»I 


E670 


8254 


=000A3CI 


873 F0SaAT2 LDAI 


B7, SPACE 


0007ESr 


4130 


816A 


=0009561 


874 


BAL 


R3, PRINT 


0007ECI 


240A 






875 


LIS 


R0,10 


00Q7EEI 


E670 


8606 


=000DF8I 


876 


LDAI 


B7,PDB+8 








t^ -f^ r^ t^ F' ^ ^ 


/%-»•* 


n » T 


O O nUT DT 


0007f2I 


41 30 


8160 


=UUUyDDi 


o / t 


on u 


I\JfEi.\J.tJl. 


0007F6I 


C8C0 


0014 




878 


LHI 


80,20 


0007FAI 


E670 


8610 


=000E0EI 


879 


LDAI 


S7,PDB+30 


0007FEI 


4130 


8154 


=0009561 


880 


BAL 


R3, PRINT 


000802T 


2404 






881 


LIS 


SO, 4 


0008011 


E670 


8234 


=000A3CI 


882 


LDAI 


R7, SPACE 


0008041 


4130 


814A 


=0009561 


833 


BAL 


R3, PRIST 


00080CI 


E610 


85F2 


=0OOEO2I 


88 4 


LDAI 


R1,PDB+18 


0008101 


4130 


80FC 


=0009101 


885 


BAL 


B3,SEaASC 


0008141 


2405 






386 


LIS 


R0,5 


Q00816I 


E670 


8548 


=O00D62I 


887 


LDAI 


R7,ASCSEQ 


00031AI 


4130 


8133 


=0009 561 


888 


BAL 


R3, PRIST 


00081EI 


2403 






889 


LIS 


BO, 3 


0003201 


E670 


8218 


=000A3CI 


890 


LDAI 


E7, SPACE 


0008241 


4130 


812E 


=0009561 


891 


BAL 


R3, PRINT 


0008231 


E610 


85D9 


=000E05I 


892 


LDAI 


R1,PDB+21 


00082a 


4130 


80E0 


=0009101 


893 


BAL 


R3,SEQASC 


0008301 


2405 






894 


LIS 


30,5 


0008321 


E670 


852C 


=0000621 


895 


LDAI 


R7,ASCSEQ 


0008361 


4130 


811C 


=0009561 


896 


BAL 


H3, PRIST 




0000 


083AI 




897 LINEND EQU 


* 


00083AI 


D320 


F7C8 


=0000061 


898 


LB 


R2,LPAD 


00083EI 


9D23 






899 


SS8 


82, R3 


'0008401 


2159 






900 


BTC 


5, PRNTLN 


0008421 


2402 






901 


LIS 


BO, 2 


0008441 


E670 


81F2 


=000A3AI 


902 


LDAI 


a7,LINECR 


0008481 


4130 


eiOA 


=0009561 


903 


BAL 


R3, PRINT 


00084CI 


58 30 


81F4 


=0OOA44I 


904 FHTEHD IDA 


R3,F!!T8TN 


0008501 


0303 






905 


B8 


83 


0008521 


2402 






906 PRNTLN LIS 


R0,2 


0008541 


E670 


81E0 


=000A38I 


907 


LDAI 


a7,CRLF 


0008581 


4130 


80FA 


=0009561 


908 


BAL 


R3, PRIST 


00085CI 


48 30 


8 4FC 


=000D5CI 


909 


LH 


R3,LISCNT 


0008601 


C530 


0016 




910 


CLHI 


R3,22 


0008641 


2336 






911 


BES 


LINMT 


0003661 


2631 






912 


AIS 


H3,1 


0008681 


4030 


84F0 


=000D5CI 


913 


STH 


83,LINCNT 


00036CI 


4300 


FFDC 


=00084CI 


914 


B 


FBTKND 




0000 


08701 


915 LINWT EQU 


* 


0008701 


48 30 


F790 


=0000041 


916 


LH 


83,DISFLG 


00Q874I 


4230 


802E 


=0008A6I 


917 


3NZ 


LISHTD 


0008781 


C8C0 


002B 




918 


LHI 


R0,43 


00087CT 


E670 


8064 


=0008E4I 


919 


LDAI 


87,!1SGC0N 


0008801 


4130 


80D2 


=0009561 


920 


BAL 


83,PalNT 


0008801 








921 
922 
923 


IFZ 

LHI 
ELSE 


A DC- 2 

P3,?13RD 


0008841 


C830 


00A1 




924 
925 


LHI 
ENDC 


R3,PA3RD 


0008681 
00088AI 


9E23 
9D23 






926 

927 LIN 


OCR 
■rfTND SSB 


R2,a3 
R2,R3 



PRINT THE SAME 



PRINT THE REST OF THE SAME 



PRINT 4 SPACES 



PRIST 3 SPACES 



LOAD ADDRESS 
SENSE STATUS 

SOT LINE PRINTER 
YES 



YES 

LINE COUNT = KAX ? 



GET FLAG 

USE DISPLAY 

LOAD COUNT 

LOAD START ADDRESS 

PRIST MESSAGE 

LOAD COMMAND 

LOAD COMMAND 

ISSUE COMMAND 
SENSE STATUS 



MDL08730 

KDL08740 

MDL08750 

MDL08760 

MDL08770 

MDL0 8780 

aDL08790 

HDL08800 

MDL08810 

MDL08820 

MDL08830 

MDL08840 

HDL08850 

MDL08860 

MDL0 8 870 

MDL08880 

MDL08890 

MDL08900 

MDL08910 

MDL08920 

MDL08930 

MDL08940 

KDL08950 

HDL08960 

MDL08970 

MDL08980 

HDL08990 

MDL09000 

MDL09010 

MDL09020 

HDL09030 

HDL09040 

MDL09050 

MDL09060 

MDL09070 

MDL09080 

MDL09090 

MDL09100 

MDL09110 

aDL09120 

MDL09130 

MDL09140 

MDL0 9150 

MDL09160 

aDL09170 

MDL09180 

MDL09190 

MDL09200 

I1DL09210 

I1DLO9220 

MDL09230 

MDL09240 

'iDL09250 

MDL09260 

MDL09270 
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00088CI 
O0O88EI 
0008901 
0008921 
0008961 
00089AI 
O0089EI 
♦0008A2I 
*00Q3ftai 
0008A6I 
0008AAI 
0008AEI 
0008B2I 
0008B8I 

0008B8I 
0008881 
0008BAI 
0008BCI 
0008BEI 



0008COI 
0008C2I 
0008C6I 
0008CAI 
0008D2I 
0008DAI 
0008E2I 
OOOSEKI 
0008ECI 
0008F4I 
0008FCI 
00090W 
00090CI 
00090 EI 

0009101 
0009121 
0009141 
0009181 
00091AI 
00091EI 
0009221 
0009241 
0009261 
00092*1 
0009 2CI 
0009301 
0009341 
0009361 
00093AI 
00093CI 
00093EI 



2081 

9B23 

9A23 

C530 OOOA 

4330 8026 =0008C0I 

C530 OOOD 

4330 F79A =00003CI 

220C 

230E 

C800 0019 

E670 801C =0008CAI 

4130 80A4 =0009561 

C200 8002 =0008681 

0000 08B8I 

0000 
BOFO 
0000 

08C0I 



0733 

4030 

43C0 

50 £2 

554E 

4F4E 

ODOA 

4445 

4C46 

4E54 

5220 

5445 

4520 

ODOA 

0000 

242F 

24E0 

D341 

0442 

D324 

D220 

2651 

2611 

C5E0 

0333 

C820 

D341 

0442 

C3E0 

2332 

1044 

D374 



3496 =000D5CI 
FF70 =0008 3AI 
4553 5320 2252 
2220 544F 2043 
5449 4E55 4520 

5052 4553 5320 

2054 4F20 434F 

494E 5545 204F 

4352 2054 4F20 

524D 494E 4154 



09101 



0000 

83C8 =O00CE6T 
8440 =000D62I 



0005 

OOFO 
0000 

0001 



83A4 =000CE6I 



928 
929 
930 
931 
932 
933 
934 
935 
936 
9 37 
938 
939 
940 
941 
942 
943 
944 

945 

946 
947 
948 
949 
950 
951 
952 



LINHTD 



LINEWT 



954 
955 
956 
957 
958 
959 
960 
961 
952 
963 
964 
965 
966 
967 
968 
969 
970 
971 



BT3S 

RDP. 

WDB 

CLHI 

BE 

CiHI 

BE 

B 

B 

LHI 

LDAI 

BAL 

LPSW 

ALIGH 

EQ'J 

IFSZ 

DC 



DC 

ELSE 

DC 

ESDC 

COHTLISE XAS 
STH 
B 

MSGMT DC 



953 8SGC01I 



DC 



SEOASC 



SEQXX 



SEQX1 



SEQ1XY 



8,1 

B2,H3 

R2,a3 

R3,X*0A' 

COKrilNE 

R3,X'0D' 

NODIS 

LINHT»D 

COSTLISE 

R0,25 

R7,1SGWT 

83, PRINT 

LINEiiT 



ADC-2 
X'0000',X'BOFO' 

X'OOOO' ,Z{CONTLINE) 



X'BOOO' ,Z(CONTLISE) 



R3,B3 

R3,LIHCNT 

LIHEND 

C PRESS "RUN" 
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WAIT FOR BUSY NOT 

READ CHARACTER 

ECHO 

LF?7 

YES, RESUME 

CR?? 

YES, PRINT RESTART 

NOT CB OR LF SO IGHORE 

C0NTI8UE LIST 



TO COMTISUE" ,X*ODOA' 



C'DEPRESS LF TO CONTINUE OR CH TO TERMINATE' ,X ' ODOA ' 



EQU 


* 


LIS 


R2,X*F' 


LIS 


R5,0 


LB 


R4,0(R1) 


MAR 


84, R2 


LB 


R2,ASCI<84) 


STB 


R2,ASCSEQ 


AIS 


fi5,1 


AIS 


H1,1 


CLHI 


H5,6 


BER 


R3 


LHI 


82,X*F0' 


LB 


R4,0(R1) 


KAR 


R4,R2 


THI 


85,1 


BZS 


SEQ1XY 


S8LS 


B4,4 


LB 


37,ASCI{R4) 



SET UP MASK 

GET THE HO BYTE 

BASK OFF THE HO DIGIT 

GET THE ASCII EQUIV. DIGIT 



GET THE MO BYTE 



GET THE ASCII EQUIV. 



HDL09280 
nDL09290 
MDI09300 
HDL09310 
KDL09320 
MDL09330 
BDL09340 
HDL09350 
HDL09360 
nDL0937O 
MDL09330 
HDL09390 
MDL09400 
MDL09410 
I1DL09420 
MDL09430 
KDL09440 

MDL09450 

HDL09460 
HDL09470 
HDL09480 
MDL0949C 
HDL09500 
HDL09510 
HDL09520 



HDL09530 



MDL09540 
SDL09550 
HDL09560 
MDL09570 
MDL09580 
J1DL09590 
KDL09600 
HDL09610 
HDL09620 
SDL09630 
MDL09640 
HDL09650 
HDL09660 
MDL09670 
BDL09680 
MDL09690 
MDL09700 
SDL09710 
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0009421 


D275 841C 


=0000621 


972 




STB 


R7,ASCSEQ(R5) 


0009461 


2651 




973 




AIS 


S5,1 


0009481 


1024 




974 




SSLS 


3 2,4 


00094AI 


C350 0001 




975 




IHI 


R5,1 


00094EI 


4230 FFD2 


=0009241 


976 




BNZ 


SEQXX 


0009521 


4300 FFDA 


=0009301 


977 




B 


SEQX1 




0000 09561 




978 


PRINI 


EQU 


* 


0009561 


5030 80EE 


=00CA48I 


979 




STA 


R3,PRT8TN 


00095ftl 


D320 F6A8 


=0000061 


980 




LB 


H2,LPAD 


00095EI 


9D23 




981 




SSB 


fi2,R3 


0009601 


4370 8030 


=0009941 


982 




BFC 


7, TTYLP 


0009641 


4830 F69C 


=0000041 


983 




LH 


R3,DISF1G 


0009681 


4330 807C 


=0009 £81 


984 




BZ 


COHOUT 


00096CI 


D350 F697 


=0000071 


985 




LB 


R2,TTYAD 


0009701 


9D23 




986 




SSR 


S;2,fi3 


0009721 


4350 801E 


=0009941 


987 




BFC 


5, TTYLP 


0009761 


C820 0011 




988 




LHI 


R2,PASHAD 


00097AI 


9D23 




989 




SSH 


H2,R3 


00097CI 


42E0 8062 


=0009E2I 


990 




BTC 


5,PEXIT 


0009801 


D330 F684 


=0000081 


991 




■ LB 


R3,PASC2 


0009841 


9E23 




992 




oca 


R2,R3 


0009861 


C830 00A3 




993 


PEINB 


LHI 


R3,PASHR 


00098AI 


9E23 




994 


PBIHA 


OCR 


82, R3 


00098CI 


9B23 




995 




RDR 


R2,R3 


00098EI 


9D23 




996 




SSR 


R2,R3 


0009901 


2081 




997 




BTBS 


8,1 


•0009921 


2304 




998 




B 


PBIS1 


0009941 


C830 0098 




999 


TTYLP 


LHI 


R3,TTYtfR 


0009981 


9E23 




1000 


TTYLPfl 


OCR 


S2,B3 


00099AI 


9D24 




1001 


PRIS1 


SSH 


S2,R4 


00099CI 


2091 




1002 




BTBS 


9, PRINI 


00099EI 


DA27 0000 




1003 




HD 


R2,0(H7) 


0009A2I 


C520 0011 




1004 




CLKI 


R2,PASHAD 


0009A6I 


4230 8020 


=0009CAI 


1005 




BNE 


PRIN3 


0009AAI 


2721 




1006 




SIS 


R2,1 


0009ACI 


9D23 




1007 




SSB 


R2,R3 


*0009AEI 


2383 




1008 




BFC 


8,PRIN6 


0009B0I 


2621 




1009 


P8IN4 


AIS 


R2,1 


*0009B2I 


230C 




1010 




B 


PRIM3 


0009B4I 


9B23 




1011 


PSIN6 


RDR 


R2,R3 


0009B6I 


C530 0014 




1012 




CLHI 


R3,X'14' 


•0009BAI 


20E5 




1013 




BTC 


11,PRIN4 


00Q9BCI 


9D23 




1014 


PRIN5 


SSR 


32, R3 


0009BEI 


20S1 




1015 




BTBS 


3,1 


0009COI 


9B23 




1016 




RDR 


32,83 


0009C2I 


C530 0012 




1017 




CLHI 


R3,X' 12" 


*0009C6I 


20E5 




1018 




BTC 


11,PRI»I5 


•0009C8I 


22CC 




1019 




B 


PRIN4 


0009CAI 


2671 




1020 


PRIN3 


AIS 


R7,1 


0009CCI 


2701 




1021 




SIS 


30,1 


0009CEI 


4230 FFCB 


=00099AI 


1022 




BNZ 


P3IN1 


0009D2I 


24 30 




1023 




LIS 


83,0 


0009D4I 


9D24 




1024 


PSIN2 


SSR 


H2.34 


0009D6I 


2081 




1025 




BTBS 


3,P3IN2 


0009D8I 


9A23 




1026 




UDR 


R2,R3 



SAVE 

LOAD ADDRESS 

SEHSE STATOS 

USE LINE PRINTER 

GET FLAG 

USE SYSTEM CONSOLE 

LOAD ADDRESS 

SENSE STATOS 

USE TTY 

LOAD, WRITE ADDRESS 

SENSE STATUS 

HO DEVICES READY, IGNORE 

LOAD COMHAND 

ISSUE COMMAND 

LOAD COMMAND 

ISSUE COMMAND 

DUMMY HEAD 



LOAD COMMAND 
ISSUE COMMAND 

DU 08 BUSY = WAIT 

PASLA?? 

NO, SKIP DC2/DC4 CHECK 



BUMP POINTER 

DECREMENT CHARACTER COUNT 

MORE CHARACTERS ? - YES 

SO 

OUTPUT NULL 

FOR ALL DEVICES 



.'<DL09720 
MDL09730 
SDL09740 
KDL09750 
nDLO 9760 
MDL09770 
MDL097e0 
KDL09790 
MDL 09800 
MDL09810 
MDL09820 
MDL09830 
MDL09840 
MDL09850 
MDL09860 
HDL09870 

MDLogeao 

MDL09890 
HDL09900 
MDL09910 
HDL09920 
MDL09930 
HDL09940 
MDL09950 
SDL09960 
HDL09970 
MDL09980 
MDL09990 
MDL10000 
MDL10010 
MDL10020 
HDL1003D 
MDL10040 
MDL10050 

MDLrooeo 

MDL10070 
M0L10080 
MDL10090 
MDLIOIOO 
HDL10110 
MBL10120 
MDL10130 
MDL10140 
MDI10150 

ncLioieo 

MDL10170 
MDL10180 
MDL10190 
HDL10200 
MDL10210 
MDL10220 
MDL10230 
MDL10240 
MDL10250 
fiDL10260 



SKD LQADEP 06-1 76F02PQ2?19 1 A 1 3 



PAGE 20 16:07:36 08/13/79 



Q009DAI 9D2l» 

0009DCI 2081 

0009DEI 

0009DEI C820 0010 



0009E2I 5830 8062 =000Ait8I 
00a9E6I 0303 

0000 09E8I 
0009E6I 



0009E8I 
0009ECI 

0009F0I 
0009F3I 
OOOSOOI 
000A08I 
0O0A1OI 

oooaiai 

000A1CI 
000A2<H 
O0OA2CI 
000A34I 
000A38I 
OO0A3AI 
000A3CI 
000A44I 
OOOAtm 
000A1»8I 
000A4CI 



C8 20 0011 
11300 FF96 



=0009861 



2053 
2030 
2052 
20 20 
2020 
ftDDS 
2020 
2020 
4FE7 
l»947 
ODOA 
0D01 
2020 



H551 2023 
362D 2023 
U556 2E20 
2020 2020 
2020 2020 
2020 

2020 2020 
2020 2020 
2020 2020 
l»820 



2020 
2020 
2020 
2020 
UEtl 

2020 

2oac 

20t8 



2020 2020 2020 



000A5W 085D 
000A56I 08 6E 
000S58I 0B65 



1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 



PEXIT 



COSQUT 



1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 HEADER 



1046 



CBLF 

LINECB 

SPACE 

FMT8TK 
PBTRTN 
DIBPRB 
* S T 



SSH 

BTBS 

IFNZ 

LHI 

ELSE 

LHI 

EH DC 

LDA 

BR 

EQU 

IFZ 

LHI 

LHI 

B 

ELSE 

LHI 

B 

ENDC 

DC 



DC 



DC 

DC 

DC 

ALIGN 

DS 

DS 

DS 

K A D 



82, H4 
8,1 
A DC- 2 

82,PASRAD 

R2,3TCADR 

a3,PBTRTK 
R3 

* 

A DC- 2 
82,STCADE 
R3,MBWB 
PRISA 

82,PASWAD 
PBINB 

C SEQ # 



RELOAD PASLA 3EiD ADDRESS 
RELOAD STC ADDRESS 

RETURN 



LOAD ADDRESS 
LOAD COMMAND 
PRIST 

LOAD PASLA WRITE ADDRESS 
PRIKT 



06- 



KEV. 



NAME 



LOW 



HIGH' 



X • DO A • 

X • D0 1 ■ 

C 

4 

4 

4 

8 



THIS ROUTINE MILL RETORN THE PROPER VALUES TO SET OP THE 
SELCH 08 TO SET OP THE WRITE BLOCK. 

ISPOT = RD = LOW ADDRESS TO BE COPIED 



OUTPUT 



RE 

83 
84 



B5 
R6 

RD 

RE 



STBKAD 



LDAR R5,BD 
LDAB 86,aE 
SAR R6,R5 



HIGH ADDRESS TO BE COPIED 

RETORN ADDRESS 

MORE DATA BLOCKS REQUIRED TO FINISH 

THE ENTIRE TRANSFER 
F INDICATES THAT THIS IS THE LAST 

BLOCK OF THE TRANSFER 
LOW ADDRESS FOR THIS BLOCK 
HIGH ADDRESS FOR THIS BLOCK 
ENTRY VALUE + X'lOO* 
ENTRY VALUE (NEVER ALTERED) 

COPY THE LOW POINTER 
COPY THE HIGH POINTER 
SUBTRACT (HIGH - LOW) 



MDL10270 
MDL102aO 
J1DL10290 
MDL103Q0 
HDL10310 
KDL10 320 
HDL10330 
,1 DL 1 3 4 
SDL103E0 
MDL10360 
BDL10370 
MDL10360 
KDI10390 
HDL10400 
HDL10410 
MDL10U20 
ffDL10430 
MDL 10440 
MDL10450 



I1DL10U60 



HDL10470 
SDL1048C 
HDL10490 
MDL10500 
HDL 105 10 
MDL10520 
MDL10530 
MDL10540 
«DL10550 
MDL10560 
RDL10570 
HDL TO 58 
HDLt0590 
HD110600 
HDL 106 10 
HDL10620 
HDL to 6 30 
MDL10540 
HDL10650 
HDL10660 
HDL10670 
HDL 10 680 
WDL 10690 
HDL10700 
MDL10710 
HDL 10720 
HDL 10 730 
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00045AI 


C560 


OOFF 


000A5EI 


218A 




OOOA60I 


2339 




000A62I 


085D 




*000A64I 


CADO 


0100 


000A68I 


0865 




*O00A6AI 


CA60 


OOFF 


000A6EI 


24^0 




000A7OI 


0303 




O00A72I 


2'»ilF 




O00A74I 


C560 


0000 


000A78I 


233« 




000A7AI 


08 ED 




000A7CI 


oeeE 




000A7EI 


0303 




000A80I 


08JD 




000A82I 


0865 




000A84I 


2661 




000A86I 


03C3 





000A88I 
*000A8AI 
00QA8CI 
OO0A9OI 
000A92I 
000A91»I 
000A98I 



9DA1 

2115 

C310 0010 

223« 

0300 

C810 00E7 

it3C0 81DC =0000781 



0O0A9CI 
OOOAAOI 
►OOOAAUI 
000AA6I 
OOOAAAI 
OOOAAEI 
OOOABOI 
000AB2I 
OO0AB6I 
OOOABAI 
OOOABCr 
OOOABEI 
OOOACOI 



t»8 10 82B2 =0000521 

C510 OOCi 

218E 

4810 829A =0OODi»iH 

C8F0 0010 

98A1 

9EAF 

4810 8290 =00OD%6I 

C8F0 0020 

98A1 

9EAF 

0303 

4810 8280 =00OD'4«I 



1074 
1075 
1076 
1077 
1076 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
109 3 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 



HOMQBE 



N0M01 



N H 



CLHI 

BLS 

BES 

IDAE 

AAI 

LDAB 

AAI 

LIS 

BR 

LIS 

CLHI 

BES 

LDAB 

LDAB 

B8 

LDAB 

LDAB 

AIS 

BE 

T N 



B6,X'FF* 

NOHOBE 

MOMOHE 

B5,RD 

RD,X'100' 

B6,B5 

R6,X'FF' 

S4,0 

B3 

84,15 

R6,X'00' 

NOflOl 

B5,HD 

R6,RE 

B3 

85, ED 

86, B5 

R6,1 

83 



DIFFEBENCE 



? 



ADD 1 SO THAT A HIN. OF 2 BYTES 



HAIT FOR HO SOTIOH 

80 = RETUaS ADDRESS 
ai = SCBATCH BEGISTEB 

8A = THE DEVICE ADDRESS 



SOBOTH 



HTE8XY 



W D F 



SS8 
BTC 

THI 

BZS 

BR 

LHI 

B 

T 



8A,H1 

1,HTEBXT 

R 1 , X • 1 • 

NOBOTH 

RO 

R1,X'E7' 

ERRA 



SENSE THE STATUS 

NOMOTIOS SET ? 
NO - HAIT 
YES - RETURN 



WRITE THE DATA TO THE FILE 



HDFT 



HDFT2 



RA = 


FILE ADDRESS 


R3 = 


RETURN ADDRESS 


RF = 


USED AS SCRATCH 


HI = 


USED AS SCRATCH 


LH 


R1,TRKDEM 


CLHI 


81,4 


BL 


WDFT2 


LH 


RI.CYL 


LHI 


SF,X'10' 


HHB 


RA,R1 


OCR 


RA,RF 


LH 


R1,HEAD 


LHI 


RF,X'20' 


WHR 


aA,R1 


OCR 


EA,8F 


BR 


R3 


LH 


81,CYL 



MDL10740 
J1DL10750 
HDL10760 
HDL10770 
SDL 10 78 
MDL10790 
HDL10800 
HDL10810 
SDLt0820 
HDL10830 
SDL10840 
MDL1O850 
HDL10860 
HDL10870 
HDL10880 
BDL10890 
MDL10900 
HDL10910 
MDL10920 
aDL10930 
NDL10940 
MDL10950 
MDL10960 
HDL10970 
SDL10980 
HDL10990 
MDL11000 
HDLIIOIO 
MDL11020 
MDL11030 
HDL11040 
MDL11050 
MDL11060 
BDL11070 
MDL11080 
MDL11090 
MDL11100 
SDL 11 110 
MDL11120 
HDL11130 
!1DL11140 
tlDL11150 
MDL11160 
MDL1 1 170 
MDL11180 
MDL11190 
MDL11200 
HDL11210 
HDL11220 
MDL11230 
J1DL11240 
aDL11250 
.1DL11260 
BDL11270 
NDL11280 
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OOOACUI 
000AC6I 
OOOACAI 
►QOOACCI 
OOOADOI 
000AD2I 
OOOADMI 
000AD6I 
000AD8I 
OOOADAI 
OOOADCI 



OOOADEI 
OOOAEOI 
000AE2I 
*OOOAE«I 
000AE6I 
OOOAEAI 
OOOAECI 
OOOAEEI 
OOOAFOI 
000AF4I 

O0OAF6I 
OOOAFAI 



=0000521 



07FF 

45F0 8288 

2338 

C510 0100 

2383 

9AAF 

2303 

2tF1 

9AAF 

9AA1 

0303 



9DC1 

2221 

9DA1 

2119 

C310 0008 

20 36 

2172 

0303 

C310 0010 

203B 

0000 0AF6I 

C810 0OE8 

1(300 817A =000C781 



OOOAFEI 
000B02I 
0008061 

*OO0BOAI 
OOOBOCI 
0OOB1OI 
000B12I 
000B16I 
000B18I 
000B1CI 
OOOBIEI 

*000B20I 
000B22I 
000B26I 
000B2AI 
00OB2EI 
000B30I 
OO0B32I 
000B3m 
000B38I 
000B3CI 



5030 
U870 
C570 
218C 
fH30 
9AC8 
it830 
113A 
U870 
0637 
98C3 
230A 
«130 
tt130 
4830 
1135 
0638 
9AC3 
DECO 
!t130 
58 30 



8236 
B2i(C 
OOOtt 

FF8C 

8230 

8228 



FFB8 
FF72 
8218 



81D8 
8006 
81F8 



=OO0D38I 
=000D521 



=000A9CI 
=000D!J6I 
=OOOD«1H 



=OOOADEI 
=000A9CI 
=0000461 



=0000101 
=0008421 
=0001)381 



1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 



WDFTO 



WDFT1 



F B S 



XA3 

CLH 

BES 

CLAI 

BNLS 

HDB 

BS 

LIS 

HDR 

WDB 

BS 

R W 



RF,PF 

BF,TSKDEN 

■rfDFTI 

81,256 

WDFTO 

HA,RF 

WDFT1 

aF,1 

RA.aF 

RA,81 

33 



TRKDEN 



1 



8BITE THE 256 BIT (ZERO) 

SET THE 255 BIT 
WRITE THE 256 !IT 



FILE READY TO SEEK READ OR WRITE ? 



FRSRW 



FRSERR 
ERRXZK 



= RETURN ADDRESS 
S C , a 1 
2,1 
HA,R1 
1,E8BXZY 
R1,X'08' 
FRSHW 
7,FR3EBR 
33 

31,X'10' 
FBSRW 
* 

si,x'Ea" 

EBRA 



R C 

H 



R3 
SSR 
BFBS 
SSR 
BTC 
THI 
BHZS 
BTFS 
BR 
THI 
BHZS 
EOU 
LHI 
B 
H K 
EAD CHECK SDBHOUTISE 



WAIT FOR CONTROLLER IDLE 

GET FILE STAT 
DU ? 



RCHK 



8CHK1 



RCHX3 
SCHK2 



R3 = BETUSN ADDRESS 

R8 = SECTOR NUMBER 

STA R3, ADORES 

LH R7, TRKDEN 

CLHI R7,4 

BL RCHK1 

BAL H3,WDFT 

HDR RC,B8 

LH R3,HEAD 

SLLS R3,10 

LB R7,CrL 

OAR R3,R7 

iJHR RC,B3 

B 8CHK3 

BAL R3,F8SRM 

BAL R3,MDFT 

LH S3, HEAD 

SLLS R3,5 

OAR R3,88 

HDK BC,R3 

OC RCHCHECK 

BAL R3,SETC0N 

LDA a3,ADDBES 



HERGE CYL 



GET ADDRESS 



MDL11290 

MDL11300 

MDL11310 

MDL11320 

J(DL11330 

MDL11340 

MDL11350 

NDL11360 

SDL11370 

>(DL11380 

>!DL11390 

MDL11490 

•1DL11U10 

BDL11420 

11DL11430 

HDL11440 

MDL11450 

HDL11460 

MDL11470 

!1DL11480 

HDL11490 

MDL11500 

HDL11510 

MDL11520 

I1DL11530 

NDL11540 

MDL11550 

MDL11560 

MDL11570 

BDL11580 

MDL11590 

HDL11600 

KDL11610 

HDL11620 

HDL11630 

HDL11540 

MDLIieSO 

MDL11660 

HDL11670 

MDL11680 

NDL11690 

HDL11700 

BDL11710 

MDL11720 

MDL11730 

MDL11740 

HDL 11750 

MDL11760 

MDL11770 

MDL11780 

HDL11790 

HDL11800 

HDL11810 

HDL11820 

MDL11830 
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lOADEB 06-176F02E02H91A13 
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000Bl»OI 


0303 




1184 
1185 


* SET 


BR 

CON 


S3 RETURN. 




0000 


0B42I 


1186 


SETCCN 


EQtJ 


* 


00OB42I 


9DC1 




1187 




SSR 


RC,81 












nr«n r- 


-^ ^T'mr^ n^t 


oooB«ai 


2221 




1 lOO 




DC DO 


jlfOE-l^UH 


oooBuei 


4010 


820E =O00D58I 


1189 




STH 


R1,C0HSTA 


OOOBllAI 


DECO 


81C6 =0000141 


1190 




OC 


RC, BESET 


OOOBltEI 


0303 




1191 




BE 


H3 




0000 


0B50I 


1192 


ICORE 


EQU 


* INITIALIZE 


000B50I 






1193 




IFNZ 


ADC-2 








1194 


INITIALIZE FOB THE 32 SERIES PROCESSOfi 


000B50I 


C200 


8074 =000BC8I 


1195 




LPSW 


INIT32 


OOOBSW 


C800 


OOFO 


1196 


G032 


LI 


RO.r'OOOOOOFO* 


000B58I 


5000 


0020 


1197 




ST 


R0,X'20' 


000B5CI 


5000 


0024 


1198 




ST 


R0,X'24' 


O00B6OI 


5000 


0028 


1199 




ST 


R0,X'28' 


000B61H 


5000 


0O2C 


1200 




ST 


R0,X'2C' 


000B68I 


5000 


0030 


1201 




ST 


R0,X'30' 


00OB6CI 


E610 


809E =OOOCOEI 


1202 




LA 


ai,ILLIST 


000B70I 


5010 


0034 


1203 




ST 


R1,X'34' 


000B7l»I 


5000 


0038 


1204 




ST 


R0,X'3B' 


000B78I 


E610 


809A =000C16I 


1205 




LA 


R1,«CHHAL 


000B7CI 


5010 


003C 


1206 




ST 


ai,X'3C' 


OOOB80I 


50CO 


0040 


1207 




ST 


H0,X*40* 


000B8UI 


5000 


0044 


1208 




ST 


R0,X'44« 


000B88I 


5000 


0048 


1209 




ST 


B0,X'48' 


00OB8CI 


E610 


8076 =OO0CO6I 


1210 




LA 


R1,ARFLT 


0OOB9OI 


5010 


004C 


1211 




ST 


R1,X'4C' 


000B94I 


5000 


0080 


1212 




ST 


S0,X'80' 


000B98I 


E610 


81CC =0000681 


1213 




LA 


R1,0LDPSH 


00089CI 


4010 


0084 


1214 




STH 


R1,X'84' 


OOOBAOI 


E610 


81CC =0000701 


1215 




LA 


R1,REGSA¥ 


OOOBAai 


4010 


0036 


1216 




STH 


H1,X'86' 


000BA8I 


4000 


0088 


1217 




STH 


R0,X*88' 


OOOBACI 


E610 


8096 =000C46I 


1218 




LA 


Ri,iovgu 


OOOBBOI 


5010 


008C 


1219 




ST 


R1,X'8C' 


OOOBBttl 


5000 


0090 


1220 




ST 


R0,X'90' 


0OOBB8I 


E610 


8090 =000C4CI 


1221 




LA 


81,tIACINT 


OOOBBCI 


5010 


0094 


1222 




ST 


S1,X'94' 


OOOBCOI 


5000 


0098 


1223 




ST 


80,X'9aV 


>000BC4I 


2306 




1224 




B 


IHTCOH 


O0OBC8I 






1225 




ALIGN 


8 


000BC8I 


OOOO 




1226 


INIT32 


DC 


X'0000',X'30F0' 


OOOBCAT 


30F0 












OOOBCCI 


0000 




1227 




DC 


X'0000',Z(G032) 


OOOBCEI 


0B54I 











1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 



G0 16 



ELSE 




LPSW 


INIT16 


XHR 


R0,R0 


STH 


R0,X'2C* 


STH 


H0,X'34' 


STH 


a0,X'3C' 


STH 


R0,X'44' 


STH 


30,X'4C' 


LHI 


HO,SEGSAV 



HDL11840 
MDL11850 
MDL11S60 
HDL11870 

I1DL11890 
aDL11900 
HDL11910 
MDL11920 
ffCL11930 
«DL11940 
HDL11950 
BDL11960 
HDL11970 
HDL11980 
BDL11990 
aDL12000 
HDL 120 10 
MDL12020 
IDL 12030 
aDL12040 
flDL12050 
!1DL12060 
HDL12070 
HDL12080 
MDL12090 
HDL12100 

nDLi2no 

SDL12120 
SDL12130 
HDL12140 
HDL12150 
MDL12160 
MDL12170 
MDL12180 
MDL12190 
HDL12200 
HDL12210 
MDL12220 
HDL12230 
HDL12240 
HDL12250 
HDL12260 

I1DL12270 

MDL12280 
MDL12290 
HDL 12300 
KDL12310 
MDL12320 
MDL12330 
KDL12340 
MDL12350 
KDL12360 
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1237 




STH 


B0,X*22' 












1238 




LHI 


BO.ARFLT 












1239 




STH 


R0,X'2E* 












1240 




LHI 


BO, ILLIST 












1241 




STH 


S0,X'36' 












1242 




LHI 


RO,«iCHHAL 












1243 




STH 


R0,X'3E' 












1244 




LHI 


RO, INTER 












1245 




STH 


R0,X'46" 












1246 




LHI 


80,DIVFLT 












1247 




STH 


R0,X'4E' 












1248 




B 


BEGIN 












1249 


INIT16 


DC 


X'30Q0*,Z(G016) 










1250 




EHDC 








0008DOI 


48 30 


807E =000C52I 


1251 


INTC01 


LH 


R3,3VCERa 






OOOBDtr 


C8 10 


009C 


1252 




LHI 


H1,X"9C' 






0OOBD8I 


4031 


0000 


1253 


X9C 


STH 


F3,0(R1) 






OOOBDCI 


2612 




1254 




AIS 


R1,2 






OOOBDEI 


CSIO 


OOBC 


1255 




CLHI 


R1,X'BC' 






000BE2I 


2035 




1256 




BNES 


X9C 






OOOBEUI 


0700 




1257 




XAB 


RO.RO 






000BE6I 


4001 


0000 


1258 


XBC 


STH 


R0,0(R1) 






OOOBEAI 


2612 




1259 




AIS 


R1,2 






OOOBECI 


C510 


OODO 


1260 




CLHI 


R1,X*D0' 






OOOBFOI 


2035 




1261 




BNES 


XBC 






000BF2I 


ceoo 


ocsei 


1262 




LHI 


BO, INTER 




SET THE ADDRESS 


000BF6I 


40C1 


0000 


1263 


XCC 


STH 


H0,0(R1) 






OOOBFAI 


2612 




1264 




AIS 


R1,2 






OOOBFCI 


C510 


02D0 


1265 




CLHI 


E1,X'2D0' 






OOOCOOI 


2035 




1266 




BHES 


XCC 






OO0CO2I 


4300 


F406 =00000CI 


1267 




B 


BEGIN 






000C06I 


ceoo 


OOFO 


1268 


ABFLT 


LHI 


R0,X*F0* 




FLPT ARIT FAQLT 


OOOCOAI 


4300 


804C =000C5AI 


1269 




B 


PSWE 






OOOCOEI 


C8 00 


O0F1 


1270 


ILLIST 


LHI 


R0,X'F1 ■ 




ILLEGAL INST. 


000C12I 


4300 


8044 =000C5AI 


1271 




B 


PSWE 






*000C15I 


211D 




1272 


MCHSAL 


BTC 


I.PFAIL 






000G18I 


C200 


8004 =00OC2OI 


1273 




LPSW 


HCHPSW 






000C20I 






1274 




ALIGN 


8 








0000 


0C20I 


1275 


HCHPSH 


EQU 


* 






000C20I 






1276 




IFHZ 


ADC-2 






000C20I 


OOCO 




1277 




DC 


X'0000',X' 


'30F0' 




O00C22I 


30 FO 
















O0OC24I 


0000 




1278 




DC 


X'0000',Z(HCH1) 




0OOC26I 


0C28I 















00OC28I 
000C2CI 
000C3OI 
OOOC38I 

000C38I 
O00C38I 
000C3AI 



C800 00F2 

4300 802A =000C5AI 

C200 8004 =00OC38I 

0000 0C38I 

0000 

Boro 



1279 




ELSE 




1280 




DC 


X'3000',2{flCH1) 


1281 




EtiDC 




1282 


MCH1 


LHI 


R0,X*F2' 


1283 




B 


PSWE 


1284 


PFAIL 


LPSW 


PFL 


128 5 




ALIGN 


8 


1286 


PEL 


EQU 


* 


1287 




IFNZ 


A DC- 2 


1288 




DC 


X'OOOCX'BOFQ' 



MDL12370 

MDL12380 

MDL12390 

HDL12400 

HDL12U10 

«DL12420 

SDL12430 

HDL12440 

HDL12450 

HDL12460 

MDL12470 

MDL12480 

MDL12490 

MDL12500 

aDL1251C 

MDL12520 

MDL12530 

HDL12540 

MDL12550 

HDL12560 

KDL 12 570 

HDL1258C 

I1DL12590 

NDL12600 

MDL12610 

KDL12620 

«DL12630 

KDL12640 

nDL12650 

BDL12660 

HDL12670 

!1DL12680 

nDL1269C 

MDL12700 

HDL12710 

HDL12720 

HDL12730 

S0L12740 

HDL12750 

MDL12760 

aDL12770 

MDL12780 

SDL12790 
aDL12300 
HDL12310 
RDL12820 
HDL12830 
HDL12840 
MDL12a50 
!1DL12860 
HDL12870 
MDL12880 
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OO0C3CI 
OO0C3EI 



1000 
1C30I 



1289 



DC 



X'OOOO'rZCPFAIL) 









1290 




ELSE 












1291 




DC 


X'BO0O',Z(PFAIL) 










1292 




EHDC 






OOOCUOI 


:300 00F3 




1293 


DIVFLT 


LHI 


R0,X'F3* 


DIVIDE FAULT 


»OOOCIH*I 


?30B 




1294 




B 


PSWE 




O00C46I 


-800 OOFS 




1295 


lOVQO 


LHI 


80,X'F5' 


I/O QUEUE 0YE8FL0W 


*OOOCtAI 


?308 




1296 




B 


PSHE 




oooctci 


18 00 0OF6 




1297 


HACIMT 


LHI 


R0,X'F6' 


HAC ISTERRUPT 


0OOC5O1 


?305 




1298 




BS 


PSHE 




000C52I 


:80d O0F7 




1299 


SVCEBS 


LHI 


R0,X*F7' 


SVC INTEB8QPT 


0O0C56I 


>302 




1300 




BS 


PSHE 






0000 0C58I 




1301 


INTE8 


EQU 


* 




000C58I 






1302 




IFNZ 


AbC-2 




000C58I 


1300 




1303 
1304 
1305 




LPSHB 

ELSE 

ACK 


SO 

RF, SCRAP 


8ETDEH TO HHE8E INTER 








1306 




LPSW 


X'40* 


RETURN TO HHEBE IHTE8 








1307 




EHDC 








1000 0C5AI 




1308 


PS HE 


EQO 


* 




OO0C5AI 


0810 




1309 




LDAB 


B1,80 






5000 0C5CI 




1310 


E8R0H 


EQU 


* 




ooocscr 


0722 




1311 




XA8 


R2,R2 






0000 0C5EI 




1312 


EfiaiX 


EQU 


* 




00QC5EI 


07EB 




1313 




XAB 


RB,HB 




OOOC60I 


2ttA1 




1314 




LIS 


8A,1 




000C62I 


5EA0 8OB0 ■■■ 


=0000161 


1315 




DC 


RA,A80BT1 




000C66I 


^>f^^^ 




1316 




HDB 


RA,R1 




000C68I 


>RA2 




1317 




HDK 


SA,B2 




000C6AI 


9AAB 




1318 




HDB 


RA,R8 




0O0C6CI 


9AAB 




1319 




WDR 


8A,RB 




000C5EI 


BEAD 80A5 


=0000171 


1320 




OC 


8A,AB0RT1+1 




0OOC72I 


21 as 




1321 




BTFS 


4,N0DIS2 


FALSE SYHC 


000C7UI 


f;2C0 F438 


=0000801 


1322 




LPSW 


GETNUN 




000C78I 


082A - 




1323 


EBB A 


LDAR 


82, 8A 




*000C7AI 


220E 




1324 




B 


ERE1X 






0000 0C7CI 




1325 


H0DIS2 


EQU 


* 




*000C7CI 


^510 OOFF 




1326 




CLAI 


RI.X'FF* 


EOJ TEBMINATION?? 


000C80I 


'4330 8048 


=000CCCI 


1327 




BE 


EOJPR 


YES 


ooocam 


0B32 




1328 




LDAR 


R3,a2 


PUT EBR08 CODE IN 83 


000C86I 


CttSO OOFO 




1329 




NHI 


83,X'F0' 


MASK 


000C8AI 


1031* 




1330 




S8LS 


R3,4 


SCALE 


0OOC8CI 


0333 8056- 


=000CE6I 


1331 




L3 


H3,A3CI(a3) 


MAKE ASCII 


000C90T 


D230 8068 


=OOOCFCI 


1332 




STB 


B3,ERB!!ES + 6 


STORE TO MESSAGE 


ooocguT 


0832 




1333 




LDAR 


83,82 


aELOAD 


000C96I 


C«30 OOOF 




1334 




SHI 


33, XT' 


HASK 


000C9AI 


D333 80l»8 


=000CE6I 


1335 




LB 


83,ASCI(83) 


MAKE ASCII 


000C9EI 


0230 805B 


=000CFDI 


1336 




STB 


R3,ERRMES+7 


STORE TO MESSAGE 


0O0CA2I 


0831 




1337 




LDAR 


B3,R1 


PUT ERROR CODE IN 83 


OOOCAitl 


C«30 OOFO 




1338 




NHI 


83,X'F0' 


MASK 


000CA8I 


103t 




1339 




SSLS 


83,4 


SCALE 


OOOCAAI 


D333 8038 


-000CK6I 


1340 




LB 


a3,Asci(a3) 


?1AKE ASCII 


OOOCAEI 


D230 8040 


=00OCFEI 


1341 




STB 


83,E8BMES+8 


STORE TO MESSAGE 


000CB2I 


0831 




1342 




LDAS 


83,81 


RELOAD 



J1DL12890 

MDL12900 

MDL12910 

n DL 1 2920 

aDL12930 

HDL129a0 

MDL12950 

MDL12960 

HDL12970 

HDLT2980 

MDL12990 

MDL 13000 

MDL13010 

MDL13020 

MDL13030 

MDL13040 

HDL130S0 

MDL13060 

MDL13070 

MDL13080 

HDL13090 

BDL13100 

MDL13110 

BDL 13120 

HDL13130 

HDL13140 

ilDL13150 

MDI13160 

HDL13170 

MDL13180 

HDL 13 190 

aDL13200 

BDL13210 

BDL13220 

aDL13230 

MDL13240 

BDL13250 

i1DL13260 

aDL13270 

MDL13260 

HDL13290 

MDL133O0 

HDL13310 

MDL13320 

MDL13330 

MDL13340 

MDL13350 

MDL13360 

MDL13370 

HDL13380 

MDL13390 

aDL13400 

MDL13410 

aDL13420 
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00OCB4I 


ca30 


OOOF 






1343 




HHI 


a3,X'F' 




000CB8I 


D333 


802A 


=000CE6I 


1344 




L3 


R3,ASCI(a3) 




OOOCBCI 


D2 30 


803F 


=000CFFI 


1345 




STB 


R3,ERRHES+9 




OOOCCOI 


E61I0 


8032 


=000CF6I 


1346 




LDAI 


H4,ERRMES 




oooccai 


E680 


803B 


=0000031 


1347 




LDAI 


R3,ERRMESE+1 




oooccai 


1*300 


F37E 


=00004AI 


1348 




B 


0UT04 




OOOCCCI 


E6M0 


8008 


=000CD8I 


1349 


EOJPR 


LDAI 


R4,E0JMES 




OOOCDOI 


E680 


8011 


=00OCE5I 


1350 




LDAI 


S8.E0JMESE+1 




OOOCDUI 


4300 


F372 


=00004AI 


1351 




B 


OUT04 




000CD8I 


454E 


4420 


4F46 


204A 


1352 


EOJ>iES 


DC 


C* END OF JOB' 


,X'ODO 


OOOCEOI 


t^¥^2 


















000CE2I 


ODOA 


















ooocEm 


2A20 








1353 


EOJHESE 


DC 


C'*' 




000CE6I 


30 31 


3233 


3435 


3637 


1354 


ASCI 


DC 


C'0123456789ABCDEF' 


OOOCEEI 


3839 


4142 


4344 


4546 












OO0CF6I 


45E2 


524F 


5220 


4040 


1355 


ERBHES 


DC 


C" ERROR aasi' 


,X'ODO 


OOOCFEI 


40110 


















OOODOOI 


ODOA 


















00ODO2I 


2A20 








1356 


EBKMESE 


DC 


C'*' 




OOODOUI 


C020 








1357 


DISABL 


DC 


X'C020' 






OOCO 


0D05I 






1358 


CLEAR 


EQU 


DISAflL+1 




000D06I 


2221 








1359 


SITWaT 


DC 


X'2221' 






OOCO 


0D07I 






1360 


NTREAD 


EQU 


MTWRT+1 




00OD08I 


2300 








1361 


FHFM 


DC 


X'23O0* 




OOODOAI 


0201 








1362 


DWRIT 


DC 


X'020r 






0000 


ODOBI 






1363 


DREAD 


EQU 


DWRIT+1 




OOODOCI 


0848 








1364 


STOP 


DC 


X'084a' 






0000 


ODODI 






1365 


ESTOP 


EQU 


STOP+1 




OOODOEI 


C211 








1366 


SEEK 


DC 


X'C211' 






0000 


ODOFI 






1367 


BKSP 


EQU 


SEEK+1 




0Q0D10I 


03C1 








1368 


BCHECK 


DC 


X'03Cr 






0000 


0D11I 






1369 


HESTOR 


EQU 


RCHECK-H 




000D12I 


7030 








1370 


ESREAD 


DC 


X'7030' 






0000 


0D13I 






1371 


SREAD 


EQU 


ESREAD+1 




000D14I 


C800 








1372 


RESET 


DC 


X'CBOO" 




000D16I 


4080 








1373 


AB0RT1 


DC 


X'4080* 




000D18I 










1374 




ALIGN 


4 




000D18I 










1375 


LOH 


DS 


4 




000D1CI 










1376 


HIGH 


DS 


4 




000D20I 










1377 


HRTEND 


DS 


4 




0000241 










1378 


EOVRTN 


DS 


4 




000D28I 










1379 


STADD 


DS 


4 




OO0D2CI 










1380 


FADD 


DS 


4 




000D30I 










1381 


niSTEN 


DS 


4 




O0OD3IH 










138 2 


PGMNUM 


DS 


4 




000D38I 










1383 


ADDfiES 


DS 


4 




0O0D3CI 










1384 


AVABTH 


DS 


4 




000D«OI 










1385 


UPDTBN 


DS 


4 




000D44I 










1386 


CYL 


DS 


2 




000D46I 










1387 


HEAD 


DS 


2 




O0OD48I 










.1388 


AVAFLG 


E3 


2 




OOODtAI 










1389 


INTADD 


DS 


2 




OOODUCI 










1390 


iSTBLK 


DS 


2 




OOODUEI 










1391 


SUMBLK 


DS 


2 




000D50I 










1392 


HEXNUM 


DS 


2 





HASK 

MAKE ASCII 

STORE TO MESSAGE 

LOAD START ADDRESS 

LOAD END ADDRESS 

PRINT TO CONSOLE 

LOAD START 

LOAD END 

PRINT 



DISABLE / CLEAR 

MAG TAPS WRITE/READ 

FORWARD FILE«ASK 
DISC WHITE / BEAD 

STOP / EXT. STOP 

SEEK / BACKSPACE 

READ CHECK / RESTORE 

EXT READ / READ 

IMCRIHENIAL/NORHAL 



MDL13430 


MDL13440 


SDL13450 


I1DL13460 


HDL13470 


KDL13480 


SDL13490 


HDL13500 


nDL13510 


KDL13520 


MDL13530 


I1DL13540 


?fDL13550 


SDL13560 


HDL13570 


KDL13580 


MDL13590 


HDL13600 


MDL13610 


MDL13620 


MDL13630 


M DL 1 3 6 4 Q 


!1DL13650 


HDL13660 


HDL13670 


liDL13680 


SDL13690 


HDL13700 


HDL13710 


MDL13720 


NDL13730 


11DL13740 


MDL13750 


flDL13760 


9DL13770 


MDL13780 


HDL13790 


.NDL13800 


HDL13810 


HDL13820 


HDL13830 


HDL13840 


HDL13850 


aDL13860 


S0L1387O 


SDL13880 


!1DL13890 


HDL 13900 


J5DL13910 


SDL13920 
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OO0D52I 


1393 


TSKDEN 


DS 


2 


OOODSm 


1394 


SELISB 


DS 


2 


000D56I 


139 5 


BWDEV 


DS 


2 


oooDSei 


1396 


COS ST A 


DS 


2 


000D5AI 


1397 


SELEB8 


DS 


2 


000D5CI 


1398 


LINCNT 


DS 


2 


000D5EI 


1399 


SCRAP 


DS 


2 


OOOD60I 


1400 


RETRY 


DS 


2 


000D62I 


1401 


ASC3EQ 


DS 


6 


0O0D6(!I 


1402 




IFNZ 


ADC-2 


000D68I 


1403 




AlIGN 


8 


000D68I 


140 4 
1405 


OLDPSH 


DS 

EH DC 


8 


OO0D70I 


140 6 


SEGSAV 


DS 


128 


OOO0FOI 


1407 




ALIGN 


4 


OOODFOI 


1408 


PDB 


DS 


51 


000E2ltI 


1409 




ALIGN 


4 


O0OE2UI 


1410 


DIRECT 


DS 


1 


0000 0E251 1411 


END 


EQO 


* 


000E26I 


1412 




END 





THIS KUST BE THE LAST CARD 



!iDL13930 
SDL13940 
MDL13950 
■5DL13960 
NDL13970 
MDL13980 
RDL13990 
«DL 14000 
SDL14010 
BDL14020 
HDL14030 
•(DL14040 
MDL14050 
BDL 14060 
SDL14070 
HDL14080 
BDL14090 
MDL14100 
>1DL14110 
MDL14120 
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ASSEMBLED EY CAL 03-066R07-00 



C32-BI?) 



START OPTIONS; T=32,E8LST 



NO CAL 


EEEOKS 




NO CAL 


WARNINGS 


10 PASSES 




AB0RT1 


0000 


0E16I 


ABSTOP 


0000 


0000 


ADC 


0000 


0004 


ADDEES 


0000 


0E38I 


A8FLT 


0000 


0C06I 


ASCI 


0000 


0CE6I 


ASCSEQ 


0000 


0C62I 


ATF 


0000 


011«I 


ATH 


0000 


OOFOI 


AVACON 


0000 


03E2I 


AVACTN 


0000 


03F8I 


AVACY1 


0000 


0(4221 


AVAEND 


0000 


0U2CI 


AVAFLG 


0000 


ODI48I 


AVAIOO 


0000 


03DCI 


AVAIL1 


0000 


03F0I 


AVAILK 


0000 


03AAI 


AVAIIUA 


0000 


03C0I 


ATAIL5 


0000 


039!»I 


A¥AIL6 


0000 


01(081 


AVAILE 


0000 


3901 


AVANCT 


0000 


omci 


AVABTN 


0000 


0C3CI 


BEGIN 


0000 


OOOCI 


BKSP 


0000 


ODOFI 


CHK1 


0000 


0U38I 


CHKERR 


0000 


OitSCI 


CHKSUH 


0000 


Ott32I 


CLEAR 


0000 


0C05I 


C0KDS1 


0000 


06l»2I 


C0NDS3 


0000 


06461 


C0HHT1 


0000 


055AI 


C0SBT9 


0000 


05621 


COHOUT 


0000 


09E8I 


CONSTA 


0000 


0C58I 


COHTtB 


0000 


Q4DEI 


C0HT4C 


0000 


0«E6I 


C0HT5B 


0000 


051CI 


COHTLINE 


0000 


08C0I 


COKTUE 


0000 


01981 


CRLF 


0000 


0A38I 


OIL 


0000 


ODttUI 


CILTAB 


0000 


02DEI 


DEOV 


0000 


02C6I 


DIRECT 


0000 


0E24I 



109 

6 

1302 

1163 

1210 
190 
887 
202 
200* 
i»67* 
l»7it* 
«88* 
178 
370 
460 
l»5i» 
450* 
449 
444* 
477 
365 
481 
443 
102* 
677 
502* 
511 
284 
262 
739 
754* 
576 
656* 
984 
452 
590 
594 
614* 
932 
247 
907 
295 

1171 
349* 
248 
301 



116 

125 

1402 

1183 

1268* 

959 

895 

211* 

208 



485 
372 
465* 
471* 
457 
456* 
470 
479* 
371 
486* 
491 
229 
1367* 
506 
514* 
374 
786 
753* 

639 

1036* 
754 
592* 

59 6* 

936 
252* 

1047* 
355 

1386* 

312 
302 



178 



It: 3 



1333* 



971 
960 



491* 
1388* 



464 



442* 

1384* 
237 



499* 
1358* 



653* 



1189 



945 



465 



334 
306 



1315 



171 



1331 
972 



1320 



617 



1335 
1401* 



1373* 



719 



1340 



921 



1344 



943 



1354* 



1029 



1037 



1193 



1276 



1287 



806 



243 1267 



655 



1396* 



949* 



467 



339* 
311 



486 



315 



485 



326 



693 



327 



798 



354 



808 



356 



818 



357 



839 



804 



1119 



805 



1128 



313 
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817 


819 


820 


1410* 






DIRPfiH 


0000 


OAUCI 


807 


809 


811 


822 


832 


836 840 


DISABL 


0000 


ODOII 


261 


560 


1357* 


1358 






CISC 


0000 


OUBCI 


552 


577* 










DISCON 


0000 


02661 


307 


310* 










DISFIG 


0000 


00041 


86* 


107 


121 


916 


983 




EIVFLT 


0000 


0C40I 


12:9 3* 












D8EAD 


0000 


OEOBI 


706 


711 


1363* 








DSCEHD 


0000 


066EI 


758 


766* 










DSCEEE 


0000 


06561 


756 


759* 










DSEL 


0000 


5f AI 


705 


710* 










DSERR1 


0000 


06641 


760 


763* 










DTBIP 


0000 


03221 


369* 


373 










DHRIT 


0000 


ODOAI 


1362* 


1363 










EMD 


0000 


0E25I 


412 


1411* 










EOJSES 


0000 


0CD8I 


1349 


1352* 










EOJBESE 


0000 


0CE4I 


1350 


1353* 










EOJPB 


0000 


OCCCI 


1327 


1349* 










EOVRTH 


0000 


0D24I 


555 


668 


1378* 








ERR1X 


0000 


0C5EI 


1312* 


1324 










ERHA 


0000 


0C78I 


309 


67 3 


762 


1107 


1156 


1323* 


ERHHES 


0000 


0CF6I 


1332 


1336 


1341 


1345 


1346 


1355* 


ERfiHESE 


0000 


0D02I 


1347 


1356* 










ERROR 


0000 


0C5CI 


286 


340 


421 


513 


515 


1310* 


ERHXZr 


0000 


0AF6I 


1147 


1154* 










ESREAD 


0000 


0C12I 


606 


70S 


1370* 


1371 






ESTOP 


0000 


OCODI 


621 


723 


1365* 








FADD 


0000 


0D2CI 


598 


634 


736 


1380* 






FIND 


0000 


02E6I 


318 


353* 










FINUX 


0000 


00B8I 


175 


177* 










FIHOai 


0000 


00D6I 


188* 


194 










FIN0H2 


0000 


00E8I 


159 


19 5* 










FIRUfi3 


0000 


012CI 


210 


219* 










FIHOHi* 


0000 


01841 


230 


233 


235 


240 


244* 




FMTEHD 


0000 


084CI 


904* 


914 










FMTRTH 


0000 


0A44I 


774 


781 


845 


904 


1051* 




FORMAT 


0000 


078AI 


793 


831 


844* 








F0RHAT1 


0000 


7E2I 


866 


872* 










F0RHAT2 


0000 


07E4I 


871 


873* 










FRSESR 


0000 


OAFOI 


1150 


1152* 










FRSRH 


0000 


OADEI 


300 


359 


362 


446 


766 


796 803 


FHFM 


0000 


0D08I 


263 


787 


1361* 








GETNUM 


0000 


OOBOI 


118 


170* 


1322 








G032 


0000 


0B54I 


1196* 


1227 










HDTAB 


0000 


02CEI 


333 


341* 


459 


480 






HEAD 


0000 


01:461 


297 


332 


336 


358 


458 


462 469 








810 


821 


841 


1123 


1169 


1177 1387* 


HEADER 


0000 


09F0I 


778 


1045* 










HEXMUK 


0000 


0E50I 


184 


209 


253 


1392* 






HIGH 


0000 


0D1CI 


278 


368 


407 


417 


505 


1376* 


HSAV 


0000 


01021 


205* 


216 


218 








ILLIST 


0000 


OCOEI 


1202 


1270* 










IMPTOP 


0000 


0E26I 


1412 












IfJIT32 


0000 


0BC8I 


1195 


1226* 










ISTADD 


0000 


0D4AI 


1389* 













842 



1053' 



823 



479 



826 



483 



1144* 1149 



490 



691 



1153 



699 



1175 



800 
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IMTCOM 


0000 OBDOI 


1224 


1251* 




INTER 


0000 0C58I 


1262 


1301* 




lOVQU 


0000 0Ct6I 


1218 


1295* 




LADC 


0000 0002 








LCORE 


0000 0B50I 


85 


1192* 




LISCNT 


0000 0D5CI 


772 


90 9 


913 


IINECR 


0000 0A3AI 


902 


1048* 




LISEND 


0000 083AI 


775 


782 


897* 


LIHEHT 


0000 08B8I 


940 


942* 




IINHT 


0000 08701 


911 


915* 




LIHWTD 


0000 08A6I 


917 


937* 




LIMMTND 


0000 088AI 


927* 


935 




LISHT1 


0000 06B2I 


787* 


794 




LIST 


0000 067CI 


254 


770* 




LODDIS 


0000 022AI 


256 


29 3* 




LOW 


0000 0D18I 


277 


367 


404 


LPAD 


0000 00061 


89* 


898 


930 


LSTBLK 


0000 OEUCI 


1390* 






LSTDIS 


0000 06D0I 


785 


795* 




LSTDSO 


0000 06E2I 


801* 


843 




LSTDS1 


0000 07101 


813* 


835 




LSTxrz 


0000 07601 


816 


833* 




HACIST 


0000 OCttCI 


1221 


1297* 




MAGFF1 


0000 01AEI 


263* 


271 


275 


HBRD 


0000 0082 


101* 






MBWH 


0000 0002 


100* 






MCH1 


0000 0C28I 


1278 


1282* 




BCHMAL 


0000 0C16I 


1205 


1272* 




BCHPSH 


0000 0C20I 


1273 


1275* 




HESOK 


0000 02081 


122 


287* 




HESOKEND 


0000 02281 


123 


288* 




HISEHD 


0000 037AI 


415* 


419 




HISERE 


0000 03881 


414 


420* 




HISHI 


0000 03621 


403 


407* 




RISTR1 


0000 033AI 


39 3* 






MISTR2 


0000 033EI 


394* 


406 




HISTRd 


0000 0D30I 


39 3 


415 


1381' 


mSTRT 


0000 03381 


276 


366 


392' 


MOREMT 


0000 01ECI 


279* 


28 3 




HSGCON 


0000 oaE4i 


919 


953* 




HSGHT 


0000 08CAI 


938 


952* 




HTDEV 


0000 018EI 


220 


249* 




HTEND 


0000 05AAI 


660 


680* 




BTEKDX 


0000 02001 


280 


285* 




MTEOV 


0000 02C6I 


248* 


267 




MTEBR 


0000 05701 


575 


658 


661 


STERR1 


0000 05941 


671 


674* 




HTEBRW 


0000 05861 


667 


670* 




RTERXY 


0000 0A9W 


1102 


1106* 




HTREAD 


0000 0CO7I 


565 


604 


608 


MT8Y 


0000 0U90I 


561* 


679 




HTHRT 


0000 0D06I 


1359* 


1360 




SODIS 


0000 003CI 


117 


119* 


168 


H0DIS2 


0000 0C7CI 


1321 


1325' 




H0M01 


0000 0A80I 


1085 


1089* 





950 



951 



1398* 



408 



501 



1375* 



664 



1350* 



934 
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HOaORE 


0000 


0A72I 


1075 


1075 


1083* 






















HOMOTH 


0000 


0A88I 


26t 


676 


678 


788 


1101* 


1104 
















HORTBH 


0000 


oMsm 


512* 


791 


814 


838 




















SOTHEX 


0000 


01261 


204 


212 


214 


217* 




















NUH8LK 


0000 


ODaEI 


1391* 


























CLDPSW 


0000 


oneai 


1213 


1404* 
























O0TO2 


0000 


00781 


151* 


167 
























0UT03 


0000 


005*1 


135* 


141 
























OUTOit 


0000 


OOtAI 


124* 


157 


1348 


1351 




















OUTOS 


0000 


009EI 


161 


164* 
























PASC2 


0000 


00081 


91* 


127 


991 






















PASRAD 


0000 


0010 


88* 


144 


1030 






















PftSBD 


0000 


OOftI 


98* 


145 


924 






















PASWAD 


0000 


0011 


87* 


126 


988 


100 4 


1042 


















PASHR 


0000 


00*3 


99* 


129 


993 






















PDB 


0000 


ODFOI 


265 


266 


270 


273 


363 


364 


39 5 


397 


400 


509 


789 


790 


827 








828 


850 


856 


862 


864 


868 


876 


879 


834 


892 


1408* 






PEXIT 


0000 


09E2I 


990 


1034* 
























PFAIL 


0000 


OC30I 


1272 


1284* 


1289 






















PEL 


0000 


0C38I 


1284 


1286* 
























PGHHUd 


0000 


0D3I4I 


104 


105 


164 


191 


200 


269 


272 


313 


316 


1382* 








PBGLOH 


0000 


03801 


411 


417* 
























PRIH1 


0000 


099AI 


998 


1001* 


1002 


1022 




















PRIN2 


0000 


09D4I 


1024* 


1025 
























PRIH3 


0000 


09CAI 


1005 


1010 


1020* 






















PRINt 


0000 


09BOI 


1009* 


1013 


1019 






















PSIN5 


0000 


09BCI 


101M* 


1018 
























PRIH6 


0000 


09641 


1008 


1011* 
























PHIHA 


0000 


098AI 


994* 


























PHI SB 


0000 


09861 


993* 


1043 
























PBIBT 


0000 


09561 


779 
891 


848 
396 


851 

903 


854 

908 


857 
920 


360 
939 


363 
978* 


869 


874 


877 


880 


883 


38 3 


PHNTLH 


0000 


08521 


900 


906* 
























PRNTTL 


0000 


06A6I 


780 


783* 
























PETRTS 


0000 


0Al»8T 


979 


1034 


1052* 






















PS«E 


0000 


QC5A1 


1269 


1271 


1283 


1294 


1296 


1298 


1300 


1308* 












PUHETOP 


0000 


OOOOP 


1412 


























SO 


0000 


000 


14* 


103 


104 


105 


106 


107 


120 


121 


200 


201 


203 


205 


207 








211 


213 


215 


217 


264 


612 


613 


615 


637 


638 


640 


641 


676 








678 


715 


716 


717 


740 


741 


777 


788 


346 


849 


852 


855 


853 








861 


864 


865 


867 


370 


872 


875 


873 


381 


386 


839 


894 


901 








906 


918 


937 


1021 


1105 


1196 


1197 


1193 


1199 


1200 


1201 


1204 


1207 








1208 


1209 


1212 


1217 


1220 


1223 


1257 


1257 


1258 


1262 


1263 


1268 


1270 








1282 


1293 


1295 


1297 


1299 


130 3 


1309 














31 


0000 


0001 


15* 


108 


109 


112 


113 


114 


115 


116 


126 


128 


134 


136 


138 








144 


149 


150 


151 


153 


154 


177 


178 


179 


180 


267 


280 


235 








308 


316 


317 


339 


392 


39 5 


397 


400 


U02 


402 


405 


420 


512 








514 


555 


556 


557 


604 


505 


608 


609 


653 


654 


657 


662 


663 








665 


666 


672 


684 


693 


694 


699 


700 


701 


702 


706 


707 


711 








712 


754 


755 


757 


761 


791 


884 


392 


957 


962 


966 


1101 


1103 








1106 


1116 


1117 


1119 


1121 


1123 


1125 


1128 


1132 


1138 


1144 


1146 


1148 








1152 


1155 


1187 


1189 


1202 


1203 


1205 


1206 


1210 


1211 


1213 


1214 


1215 








1216 


1218 


1219 


1221 


1222 


1252 


1253 


1254 


1255 


1258 


1259 


1260 


1263 








1264 


1265 


1309 


1316 


1326 


1337 


1342 














82 


0000 


0002 


16* 


110 


114 


115 


127 


128 


129 


134 


136 


145 


149 


150 


151 
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153 


154 


155 


156 


158 


160 


164 


179 


182 


183 


184 


187 


188 








189 


190 


227 


231 


238 


241 


244 


253 


310 


310 


311 


315 


319 








320 


330 


332 


333 


335 


336 


354 


356 


357 


397 


398 


400 


401 








It09 


410 


412 


413 


418 


502 


50 3 


507 


508 


509 


510 


565 


566 








579 


580 


581 


582 


53 3 


591 


600 


771 


771 


772 


812 


312 


813 








817 


819 


820 


822 


832 


833 


834 


893 


899 


926 


927 


929 


930 








955 


958 


959 


960 


965 


967 


974 


980 


981 


985 


986 


988 


989 








992 


994 


995 


996 


1000 


1001 


1003 


1004 


1006 


1007 


1009 


1011 


1014 








1016 


1024 


1026 


1027 


1030 


1042 


1311 


1311 


1317 


1323 


1328 


1333 




K3 


0000 


0003 


17* 


111 


112 


113 


180 


181 


182 


186 


187 


189 


192 


268 


269 








270 


272 


274 


276 


279 


281 


294 


295 


298 


300 


303 


304 


305 








306 


311 


313 


315 


317 


323 


324 


328 


329 


333 


357 


358 


359 








360 


362 


365 


366 


369 


371 


393 


394 


394 


395 


396 


398 


399 








U01 


404 


407 


408 


410 


413 


415 


416 


417 


418 


443 


444 


446 








1*50 


451 


452 


453 


458 


459 


461 


462 


465 


466 


467 


472 


473 








tt79 


480 


432 


48 3 


486 


487 


488 


491 


492 


547 


548 


54 9 


550 








551 


554 


558 


559 


563 


564 


584 


535 


586 


587 


588 


589 


539 








593 


593 


595 


599 


602 


602 


659 


568 


669 


670 


674 


675 


682 








683 


686 


703 


704 


704 


753 


759 


763 


764 


765 


768 


769 


773 








774 


779 


780 


781 


792 


793 


796 


797 


798 


801 


803 


806 


813 








815 


820 


821 


323 


824 


825 


329 


8 30 


331 


8 45 


848 


851 


854 








857 


860 


863 


859 


874 


877 


880 


883 


885 


883 


891 


893 


896 








899 


903 


904 


905 


908 


909 


910 


912 


913 


916 


920 


924 


926 








927 


929 


9 30 


931 


933 


939 


949 


949 


950 


964 


979 


981 


983 








986 


989 


991 


992 


993 


994 


995 


996 


999 


1000 


1007 


1011 


1012 








101« 


1016 


1017 


1023 


1026 


1034 


1035 


1082 


1088 


1092 


1127 


1139 


1151 








1163 


1167 


1169 


1170 


1172 


1173 


1175 


1176 


1177 


1178 


1179 


1180 


1182 








1183 


1184 


1191 


1251 


1253 


1328 


1329 


1330 


1331 


1331 


1332 


133 3 


1334 








1335 


1335 


1336 


1337 


1338 


1339 


1340 


1340 


1341 


1342 


1343 


1344 


1344 








131*5 


























R4 


0000 


ooou 


18* 


122 


135 


139 


140 


190 


191 


219 


273 


274 


282 


282 


370 








372 


447 


448 


456 


459 


475 


476 


480 


501 


502 


504 


505 


507 








784 


957 


958 


959 


966 


967 


970 


971 


1001 


1024 


1027 


1081 


1083 








1346 


1349 
























R5 


0000 


0005 


19* 


135 


138 


185 


191 


193 


265 


301 


326 


363 


500 


503 


508 








510 


569 


570 


571 


581 


592 


597 


618 


619 


619 


626 


626 


720 








721 


721 


728 


728 


789 


804 


827 


956 


951 


963 


968 


972 


973 








975 


1071 


1073 


1077 


1079 


1086 


1089 


1090 












E6 


0000 


0006 


20* 


142 


164 


165 


166 


266 


302 


327 


364 


571 


586 


596 


598 








625 


628 


629 


630 


633 


635 


727 


730 


731 


732 


735 


737 


790 








805 


828 


1072 


1073 


1074 


1079 


1080 


1084 


1087 


1090 


1091 






R7 


0000 


0007 


21* 


226 


228 


232 


234 


236 


239 


242 


244 


245 


245 


246 


567 








57 4 


631 


632 


633 


634 


635 


687 


688 


691 


692 


694 


695 


696 








733 


734 


735 


736 


737 


778 


8 47 


850 


853 


856 


359 


862 


868 








873 


876 


879 


832 


887 


890 


895 


902 


907 


919 


938 


971 


972 








1003 


1020 


1164 


1165 


1171 


1172 
















88 


0000 


0008 


22* 


123 


140 


296 


296 


297 


322 


324 


337 


337 


354 


355 


356 








448 


455 


456 


463 


463 


468 


468 


469 


474 


476 


484 


484 


489 








489 


490 


690 


701 


799 


799 


800 


807 


808 


809 


810 


811 


817 








818 


819 


836 


337 


839 


840 


841 


842 


1168 


1179 


1347 


1350 




S9 


0000 


0009 


23* 


























BA 


0000 


OOOA 


24* 


196 


200 


208 


221 


249 


261 


262 


263 


299 


361 


445 


560 








566 


567 


569 


574 


605 


609 


653 


662 


665 


677 


786 


787 


802 








825 


1101 


1121 


1122 


1125 


1126 


1134 


1137 


1138 


1146 


1314 


1315 


1316 



1317 1318 1319 1320 1323 
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SB 


0000 


OOOB 


BC 


0000 


OOOC 


RCHECK 


0000 


oDior 


fiCHK 


0000 


OAFEI 


RCHK1 


000.0 


0B22I 


BCHK2 


0000 


0B3CI 


SCHK3 


0000 


0B3ttI 


ED 


0000 


OOOD 


BDISC 


0000 


046tl 


RE 


0000 


OOOE 


READPB 


0000 


4781 


REGSAY 


0000 


0B7OI 


BESET 


0000 


oDiai 


RESTOB 


0000 


0D11I 


RETKY 


0000 


0E60I 


RF 


0000 


OOOF 


R«DBV 


0000 


0D56I 


SCRAP 


0000 


0D5EI 


SECTAB 


0000 


02D6I 


SEER 


oooo 


ODD EI 


SEL 


0000 


050CI 


SEL1 


0000 


0E16I 


SELD1 


0000 


OSOM 


SEL 02 


0000 


05E6I 


SELD3 


0000 


5DCI 


SELDIS 


0000 


OSBtl 


SELEBP 


0000 


0D5AI 


SELIH2 


0000 


053EI 


SELIN2D 


0000 


062CI 


SELIN9 


0000 


0551*1 


SELIN9D 


0000 


063CI 


SELIND 


0000 


ODSUI 


SELST 


0000 


052EI 


SEL3T1 


0000 


05321 


SELST ID 


0000 


6201 


SELST D 


0000 


061CI 


SELHRT 


0000 


OUBCI 


SEQ1XY 


0000 


093EI 


SEQASC 


0000 


09101 


SEQX1 


0000 


09301 


SEQXX 


0000 


09241 


SETCON 


0000 


08421 


SOD 


0000 


OOOAI 


SOP 


0000 


OOOBI 


SPACE 


0000, 


0A3CI 


SRB 


0000 


0«A2I 


SREAD 


0000 


0C13I 


3TADD 


0000 


0E2BI 


START 


0000 


OOOOI 


STBKAD 


0000 


OftSm 


STCADR 


0000 


ooco 


STOP 


0000 


ODOCI 



H91A13 
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25* 


197 


222 


223 


224 


250 


551 


561 


578 591 


592 


59 5 


596 


606 


610 


615 


621 


623 


628 


632 


681 


708 713 


717 


723 


725 


730 


734 


767 


1313 


1313 


1318 


1319 












26* 


198 


225 


251 


255 


255 


684 


690 


695 696 


70 2 


707 


712 


1144 


1168 


1173 


1180 


1181 


1187 


1190 












1181 


1368* 


1369 




















451 


1163* 






















1166 


1175* 






















1183* 
















, 








1174 


1181* 






















27* 


199 


206 


207 


209 


277 


367 


1071 


1077 1078 


1086 


1089 




304 


329 


473 


546* 


830 
















28* 


278 


368 


1072 


1087 
















268 


28 1 


553* 


792 


















1215 


1406* 






















1190 


1372* 






















802 


1369* 






















549 


557 


670 


675 


759 


764 


1400* 












29* 


1120 


1122 


1124 


1126 


1129 


1129 


1130 


1134 1136 


1137 






551 


559 


600 


1395* 


















1399* 
























324 


345* 


448 


456 


476 
















299 


361 


44 5 


825 


1366* 


1367 














603 


608* 






















607 


611* 






















709 


714* 






















698 


70 3* 






















689 


699* 






















601 


684* 


685 




















564 


613 


638 


541 


659 


715 


741 


757 


1397* 








627 


631* 






















729 


733* 






















636 


640* 






















738 


740* 






















599 


618 


703 


720 


1394* 
















620 


623* 






















622 


624* 






















724 


726* 






















722 


725* 






















552 


578* 


765 




















969 


971* 






















885 


893 


954* 




















966* 


977 






















962* 


976 






















753 


1182 


1186* 


1188 


















93* 


294 


797 




















94* 


837 






















847 


853 


859 


873 


882 


890 


1049* 












567* 


572 


573 




















610 


713, 


1371* 




















597 


1379* 






















84* 


409 






















279 


369 


1071* 




















95* 
























223 


224 


573 


623 


581 


725 


767 


1364* 


1355 
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41*7 475 687 1116 1130 1164 1393* 

999* 



STP8IN 


0000 


068EI 


773 


776* 


SVCERR 


0000 


0C52I 


1251 


1299* 


TETOS 


0000 


0000 


13* 


59 


TRKDEN 


0000 


0D52I 


246 


323 


TTYAD 


0000 


00071 


90* 


98 5 


TTYtP 


0000 


09941 


982 


987 


TTYLPA 


0000 


09981 


1000* 




TTIBD 


0000 


0094 


96* 




TTTWR 


0000 


0098 


97* 


999 


UPDTHN 


0000 


0C40I 


1385* 




0PDTX2 


0000 


02841 


314 


319* 


0PDTX3 


0000 


02681 


311* 


321 


UPDTX4 


0000 


02B0I 


325 


332* 


UPDTX5 


0000 


029AI 


326* 


338 


WDFT 


0000 


0A9CI 


298 
1176 


30 3 


aCFTO 


0000 


0AD6I 


1133 


1136* 


WDFT1 


0000 


OADAI 


1131 


1135 


HDFT2 


0000 


OACOI 


1118 


1128* 


WBTEND 


0000 


0D20I 


547 


554 


X9C 


0000 


03D8I 


1253* 


1256 


XBC 


0000 


0BE6I 


1258* 


1251 


XCC 


0000 


03F6I 


1263* 


1266 



331 

328 360 444 450 472 686 801 824 829 1116* 1167 

1138* 
682 768 1377* 
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P80G= BDCBL 



ASSEMBLED BY CAL 03-066R07-00 (32-BIT) 





0000 


0000 




0000 


0001 




0000 


0002 




0000 


0003 




0000 


000ft 




0000 


000 5 




0000 


0006 




0000 


0007 




0000 


0008 




0000 


0009 




ooco 


OOOA 




0000 


OOOB 




ooco 


OOOC 




0000 


OOOD 




0000 


000 E 




0000 


OOOF 


OOOOB 






0080 


2121 




0082 


2303 




008« 


0100 




0086 


0108 




0088 


4020 


0022 


008C 


C850 


0100 


0090 


C860 


0267 


0094 


D3«0 


0078 


0098 


9DU1 




009A 


2091 




009C 


9E1A 




009E 


08AA 




OOAO 


2338 




00A2 


D2A5 


0000 


0OA6 


2651 




OCAS 


0556 




OOAA 


2039 




OOAC 


4300 


0100 


OOBO 


C550 


0100 


OOBU 


223E 




00B6 


22CA 





1 




SCBAT 




2 


HDCBL 


PROG 


RMD COHMOl 


3 




CROSS 




ft 




SQCHK 




5 




SQDEZ 




6 




SIDTH 


120 


7 




H0RX3 




8 




NLSTC 




9 


* 






10 


* COPYRIGHT C 


peskin-e: 


11 


* 






12 


EO 


EQU 





13 


R1 


EQU 


1 


1ft 


H2 


EQU 


2 


15 


B3 


EQU 


3 


16 


Rft 


EOU 


4 


17 


R5 


EQU 


5 


18 


R6 


EQD 


6 


19 


fi7 


EQU 


7 


20 


R8 


EQU 


8 


21 


89 


EQO 


9 


22 


BA 


EQU 


10 


23 


RB 


EQU 


11 


2ft 


RC 


EQU 


12 


25 


RD 


EQU 


13 


26 


HE 


EQO 


1ft 


27 


SF 


EQU 


15 


28 




ORG 


X'80' 


29 




LIS 


82,1 


30 




BS 


BOOT 


31 




DC 


X'lOO* 


32 




DC 


X'103' 


33 


BOOT 


STH 


E2,X'22' 


3ft 




LHI 


85, X'lOO* 


35 




LHI 


H6,DISBTE 


36 


HTBOOT 


LB 


Sft,X'78' 


37 


LEADER 


SSR 


R4,R1 


38 




BTBS 


9,1 


39 




RDR 


R4,RA 


ftO 




LDAR 


RA,8A 


ftl 




BZ 


LEADEX 


42 


GOOBYT 


STB 


RA,0(R5) 


43 




AI3 


R5,1 


44 




CLAR 


85, R6 


45 




BNE 


LEADER 


46 




B 


X' 100" 


47 


LEADEX 


CLHI 


R5, X'lOO" 


48 




BE 


LEADER 


49 




B. 


GOOBYT 


50 


* 






51 


* 






52 


* 






53 


* 
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PERKIN-ELMER CORPORATION MAY 1979 



SET PSH SAVE AREA 
SET REG SAVE AREA 
REG SAVE FOR 16. BIT MACHINE 
SET START ADDRESS 
H6,DISBTE-DI3BT+X'101' SET END ADDRESS 

GET LOADER DEVICE ADDRESS 



STORE THE BYTE 

INCRESEST THE LOC. 

EQH ? 

SO 

YES 



8DL00010 
MDL00020 
HDL00030 
MDLOOOftO 
SDL00050 
HDL00060 
MDL00070 
MDL00080 
MDL00090 
MDL00100 
HDL00110 
MDL00120 
KDL0O130 
MDLOOIftO 
MDL00150 
MDL00160 
JlDLOOnO 
HDL00180 
MDL00190 
MDL00200 
HDL00210 
'1DL00220 
HDL00230 
HDL002ftO 
SDL00250 
MDL0026Q 
HDL00270 
HDL00280 
?!DL00290 
MDL00300 
BDL00310 
HDL00320 
MDL00330 
aDL0G340 
M0L00350 
MDL00360 
HDL0O370 
MDL00 380 
MDL00390 
MDL00400 
SDLOOftIO 
MDL00420 
fiDL00430 
MDL00440 
HDL00450 
MDL00460 
MDL00«70 
HDL00480 
?1DL00490 
HDL00500 
MDL00510 
HDL00520 
MDL0Q530 
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0038 





0000 


0100 




0000 


0100 


0100 


C8D0 


OOFO 


01014 


95tD 




0106 


D310 


007D 


010A 


2t'»8 




010C 


9Em 




010E 


D32Q 


007A 


0112 


D330 


007C 


0116 


C8II0 


00C8 


011A 


9E34 




one 


«1F0 


0200 


0120 


2l»«1 




0122 


9E24 




012« 


41F0 


0200 


0128 


D3E0 


007B 


012C 


2t70 




012E 


D380 


01BC 


0132 


2490 




0134 


41 EO 


GIBE 


0138 


24A8 




013A 


C8E0 


4000 


013E 


OSEE 





54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
56 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
85 
87 
38 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
103 



BEFC8E THIS BOOT LOADER IS EXECUTED THE DEVICE DEFINITION- 
TABLE SaST BE SET UP AS FOLLOtfS. 



DEVICE 



DISC 



0RIGIN1 
DISBT 



ORG 

EOU 

EQU 

LHI 

EPSR 

LB 

LIS 

DCS 

LB 

LB 

LHI 

OCR 

BAL 

LIS 

OCR 

BAL 

LB 

LIS 

LB 

LIS 

BAL 

LIS 
LHI 

AAR 



X*78' 



1JZZ 



LOCATIONS 
X'7A' 



DDTT 



X'7C' 



CCS3 



X'7E' 



OOLL 



WHERE: 



DD 
CC 
TT 



SS 



ZZ 
LL 



THE DEVICE WITH THE MKD PACK 
THE CO-NTBOLLEH ADDRESS 
DISC TYPE IMDICATOa 
31 = 2.5 «B DISC 
33 = 10 MB DISC 

35 = 67 3B DISC 

36 = 256 MB DISC 

THE DISC SELCH ADDRESS 

THE DEVICE ADDRESS OF THE DISC BOOT LOAD 

DEVICE 

THE READ COMMAND FOR THE BOOT LOAD DEVICS 

THE LOADER IMDICATOR 

00 = 15 BIT LOADER 

01 = 32 BIT LOADER 



X* 100" 



ED,X 
R4,R 
H1,X 
R4,8 
R1,R 
R2,X 
R3,X 
84, X 
R3,R 
RF,? 
R4,1 
B2,H 
RF,F 
RB,X 
B7,0 
R8,S 
H9,0 
RE,S 



•FO* 

D 

•7D' 

4 

•7A' 

•7C' 

•C8' 

4 

ssRa 

4 

HSBW 

•7B" 

CD 

EAD 



aA,3 

RE,X'4000* 
RE, RE 



LOAD PSH CONSTANT 

SWAP (DISABLE INTERRUPTS) 

GET SELCH ADDRESS 

LOAD THE SELCH STOP COKHAKD 

STOP THE SELCH 

GET THE DEVICE ADDRESS 

GET THE CONTROLLER ADDRESS: 

LOAD CLEAR COMMAND 

CLEAR CONTROLLER 

HAIT FOR FHSRW 

LOAD RESTORE COMMAND 

RESTORE THE FILE 

WAIT FOR COMPLETE 

LOAD TYPE IHDICATOR 

SET THE SECTOR TO 

GET START 

SET HEAD TO 

READ THE DIRECTORY 

SET POINTER 

LOAD TEST COSSTA.NT 

DOUBLE 



KDL00540 

MDL00550 

MDL00560 

MDL00570 

MDL00580 

MDL00590 

MDL00600 

J1DL00610 

MDL00620 

HDL00630 

flDL00fi40 

MDLOOfiSO 

MDL00660 

BDL00670 

MDL00680 

aDL00690 

MDL007Q0 

MDL00710 

MDL00720 

t1DL00730 

MDL00740 

HDL0075Q 

MDL00760 

MDL00770 

MDL00780 

MDL00790 

MDL00800 

MDL00810 

HDL0Q820 

HDLOOaSO 

MDL00840 

MDL00850 

HDL00850 

aDL00870 

MDL00880 

MDL00890 

MDL00900 

MDL0091J 

MDL0092C 

BDL00930 

MDL00 9«^ 

MDL00950 

MDLOOg^-j 

MDL00970 

MDL009B0 

f1DL0099-- 

MDL0100-; 

MDL0101 J 

MDLOIOi J 

HDL01030 

HDL0104'-j 

MDLOIOS-j 

MDLOIOfc'. 

«DL0107j 

HDL0106; 



nnO COKHOS boot LOADES 06-176F03B02}I96A13 



PAGE 



3 15:08:55 08/13/79 



0140 


2112 




01«2 


26A8 




01'«'» 


D37A 


024C 


0148 


488A 


024A 


014C 


D39A 


024D 


0150 


41E0 


OIBE 


0154 


D350 


0259 


0158 


9158 




0154 


D360 


02 5 A 


015E 


0656 




0160 


48 60 


025C 


0164 


C5B0 


0002 


0168 


2187 




Q16A 


C570 


003F 


016E 


213A 




0170 


2691 




0172 


2470 




0174 


2308 




0176 


C570 


0017 


017A 


2134 




017C 


2691 




017E 


2470 




0180 


2302 




0182 


2671 




0184 


41i0 


01C6 



0188 


08 C5 




018A 


07FF 




018C 


D3ED 


0000 


0190 


07 FE 




0192 


26E1 




0T94 


05C6 




0196 


2085 




0198 


2236 




019A 


• D3C0 


02 5 E 


019E 


5EC 




01A0 


0335 




01A2 


24 CI 




01A4 


C8F0 


004Q 


01A8 


9ECF 




01AA 


C8F0 


EEOO 


01AE 


98DF 




01B0 


07EE 




01B2 


98rE 




01B4 


C8F0 


0080 


01B3 


9ECE 




01BA 


2200 




013C 


00 




OIBE 







109 




BSS 


LD16 


110 




AIS 


RA,8 


111 


LD16 


LB 


a7,PDB+6(BA) 


112 




LH 


H8,PDB+4(HA) 


113 




LB 


B9,PDB+7(BA) 


114 




BAL 


BE, READ 


115 


* 






116 




LB 


K5,PDB+19 


117 




DC 


X'9158* 


118 




LB 


a6,PDB+20 


119 




CAB 


85, R6 


120 




LH 


86,PDB+22 


121 




CLHI 


aB,2 


122 




BL 


C0HT1A 


123 




CLHI 


R7,6 3 


124 




BNE 


C0NT1 . 


125 




AIS 


S9,1 


126 




LIS 


B7,0 


127 




B 


COST IB 


128 


C0NT1A 


CLHI 


H7,23 


129 




BNES 


C0NT1 


130 




AIS 


R9,1 


131 




LIS 


R7,0 


132 




BS 


C0NT1B 


133 


C0MT1 


AIS 


B7,1 


134 


C0NT1B 


BAL 


RE,BEAD1 


135 


* 






136 


* CALCULATE CHKSUH 


137 


* 






138 




LDAB 


SD,B5 


139 




XAR 


aF,fiF 


140 


CKLP 


LB 


BE,OCBD) 


141 




XAB 


RF,SE 


142 




AIS 


fiD,1 


143 




CLAR 


fiD,B6 


144 




BLS 


CKLP 


145 




BES 


CKLP 


146 




LB 


RC,PDB+24 


147 




CLA8 


RF.RC 


148 




BEB 


S5 


149 


* 






150 




LIS 


ED,1 


151 




LHI 


RF,X'40' 


152 




QC8 


RD,BF 


153 




LHI 


RF,X'EE00' 


154 




WHB 


fiD,HF 


155 




XAR 


RE, RE 


156 




BHK 


RD,aE 


157 




LHI 


8F,X'80* 


158 




OCB 


HD,RE 


159 


HESE 


BS 


HERE 


160 


* 






161 


SOD • 


DB 





162 




ALIGN 


2 


163 


* 







16 BIT BRANCH 

32 BIT-BUMP POIHTER 

LOAD THE SECTOR SOMBER 

LOAD THE CYLINDER NOHBER 

GET THE HEAD # 

BEAD THE PROGRAM DEFINITIOS BLOCK 



H5 = THE STARTIMG ADDRESS 

R6 = THE ENDING ADDRESS 

CHECK TYPE INDICATOR 

HOT HSB 

MAXIMOH? 

NO 

INCBIHENT HEAD 

ZERO SECTOR 

SKIP 

HAXIHOK? 

NO 

IHCRIHEST HEAD 

ZERO SECTOR 

SKIP 

BOSP TO NEXT SECTOR 

GO BEAD THE HMD LOADER 



ZERO THE CHKSan ACCUH. 



SET THE CHKSUH BYTE 

CHKSUM -OK - PASS CONTROL TO THE 

DISPLAY 

THE CHKSUI* 

ERROR CODE 



MDL01090 
KDL01100 
HDL01110 
HDL01120 
HDL01130 
HDL01140 
MDL01150 
HDL01160 
MDL01170 
MDL01180 
SDL01190 
HDL01200 
.MDL01210 
MDL01220 
BDL01230 
MDL01240 
MDL01250 
MDL01260 
MDL01270 
HDL01280 
HDL01290 
MDL01300 
HDL01310 
HDL01320 
BDL01330 
HDL01340 
NDL01350 
HDL01360 
HDL01370 
«Di01380 
NDL01390 
SDLOKtOO 
MDL01410 
MDL01420 
MDL01430 
HDL01440 
HDL01450 
HDL01460 
MDL01470 
PROGfiA«DL014gO 
HDL01490 
MDLOISOO 
."1DL01510 
MDL01520 
«DL01530 
MDL01540 
I1DL01550 
HDL01560 
SDL01570 
aDLOISSO 
nDL01590 
BDL01600 
HDL01610 
HDL01620 
J1DL01630 
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01BE 


C850 


0246 


01C2 


C8 60 


0264 


01C6 


C5E0 


0035 


01CA 


4380 


02aA 


01CE 


9828 




01DO 


2442 




01D2 


9E24 




OlDtt 


41F0 


0200 


01D8 


2441 




01DA 


08C9 




01DC 


91C5 




01DE 


06C7 




01E0 


9A3C 




01E2 


41F0 


0200 


01E6 


9815 




01E8 


9816 




01EA 


9E34 




01 EC 


C840 


0030 


01F0 


9E14 




aiF2 


9D10 




oipa 


20 81 




01F6 


2448 




01F8 


9£14 




01FA 


41F0 


0200 


01FE 


030E 






0000 


0200 


0200 


9D30 




0202 


2221 




020« 


9D20 




0206 


20 F1 




0208 


030F 




020A 


9828 




020C 


C8 40 


0010 


0210 


9E24 




0212 


41 FO 


0200 


0216 


2442 




0218 


9E24 




021A 


41F0 


0200 


021E 


98 29 




0220 


C840 


0020 


0224 


9E24 




0226 


41F0 


0200 


022A 


9A37 




022C 


08C9 




022E 


91CA 




0230 


06C8 




0232 


983C 




023H 


9815 




0236 


9816 




0238 


2441 




023A 


9E34 




023C 


C840 


0030 


02«0 


9E14 




0242 


4300 


01F2 



164 

165 

166 

157 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 



READ 



HEAD1 



READ1B 



FHSaW 



MSS 



LHI 


H5,PDB 


LHI 


R6,PD3+30 


CLHI 


RB,X'35' 


BNL 


nsn 


MHH 


R2,R3 


LIS 


R4,2 


c:a 


R2,R4 


BAL 


RF,F8SRW 


LIS 


R4,1 


LDAR 


RC,R9 


DC 


X'91C5' 


OAR 


RC,H7 


WDH 


R3,RC 


BAL 


RF,FRSRH 


WHS 


H1,R5 


WHR 


R1,R6 


OCR 


R3,R4 


LHI 


B4,X'30' 


OCR 


H1,R4 


SSR 


Ri,ao 


BT3S 


3,1 


LIS 


34,3 


OCR 


El, 34 


BAL 


RF.FRSRH 


BR 


RE 


EQU 


* 


S3S 


33,30 


BFBS 


2,1 


SS8 


R2,R0 


BTBS 


15,1 


BR 


RF 


WHR 


R2,R8 


LHI 


R4,X'10' 


OCR 


R2,R4 


BAL 


SF,FRSRW 


LIS 


R4,2 


CCB 


R2,R4 


BAL 


RF,FRSRM 


HHR 


R2,R9 


LHI 


B4,X'20' 


OCR 


R2,8a 


BAL 


RF,FRSRH 


WDR 


R3,R7 


LDAR 


RC,R9 


DC 


X'91CA' 


CAB 


RC,S8 


HHS 


R3,RC 


HHR 


S1,H5 


WHS 


R1,R6 


LIS 


R4,1 


OCR 


B3,R4 


LHI 


R4,X'30' 


OCR 


R1,R4 


B 


READ1B 



SET UP THE SELCH 

ADDRESSES 

!iSJi? 

YES 

WRITE CTLINDEB TO FILE 

LOAD SEEK C0*?1AND 

SEEK 

LOAD THE DISC READ CO.IHAND 

SAVE BEGISTER 

SCALE 

MERGE HEAD AND SECTOR 

SET UP THE C0NT30LLE6 

WAIT 

SET UP THE SELCH 

SET UP THE SELCH 

START THE CONTROLLER 

LOAD SELCH START 

START THE SELCH 

WAIT FOR SELCH 

NOT BUSY 

LOAD SELCH STOP 

STOP THE SELCH 

WAIT 



WAIT FOR CONTROLLER 

IDLE 

WAIT FOR FILE 

STATUS = 

WRITE CYL TO DRIVE 

3CT 

COHMAND 

WAIT 

LOAD SEEK COMMAND 

SEEK 

WAIT 

WRITE HEAD TO DBIVE 

SHT 

COMMAND 

WAIT 

WRITE WDO TO COHI 

SAVE REGISTER 

SCALE 

MERGE 

WHITE WD1 ASD WD2 TO CCNT 

WRITE TO SELCH 

WRITE TO SELCH 

READ CMD 

COMMA SD 

SELCH READ 

STABT SELCH 



KDL01640 

1DL01650 

SDL01660 

XDL01570 

MDL016B0 

,1DL0169Q 

MDL01700 

HDL01710 

MDL01720 

!'DL01730 

.'<DL01740 

MDL01750 

.''.DL01760 

KDL01770 

".DL01780 

NDL01790 

MDiOISOO 

MDL01810 

MDL01S20 

RDL01830 

l'.DL01B40 

HDL01850 

MDL01860 

KDL01870 

"^DLOISBO 

HDL01890 

MDL01900 

^DL01910 

MDL01920 

MDL01930 

SDL01940 

MDL01950 

MaL01960 

SDL01970 

MDL01980 

HDL01990 

MDL02000 

SDL02010 

MDL02020 

MDLO2030 

"DL02040 

HDL02050 

MDL02060 

MDL02070 

RDL02080 

MDL02090 

HDL02100 

MD102110 

MDL02120 

SDL02130 

MDL02140 

MDL02150 

HDL02160 

fiDL02170 

SDL02180 
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0000 


0245 


0246 






0246 








0000 


0266 


0266 


D360 


007A 


026A 


DE60 


007B 


026E 


9D60 




0270 


2081 




0272 


41F0 


02B4 


0276 


C810 


0080 


027A 


2421 




027C 


C8 30 


OOCF 


0280 


DA61 


0000 


0284 


9D60 




0286 


2081 




0288 


C110 


0280 


028C 


41F0 


02BA 


0290 


C810 


0100 


0294 


C8 30 


0245 


0298 


D3E1 


0000 


029C 


9A65 




029E 


9C60 




02A0 


2081 




02A2 


Clio 


0298 


02A6 


41F0 


02B4 


02AA 


C810 


0080 


02AE 


9411 




02BO 


95C1 




02B2 


22C0 





02B4 


C800 


0100 


02B8 


2303 




02BA 


C800 


0080 


02BE 


2701 




02C0 


032F 




02C2 


2430 




02C4 


9A63 




02C6 


9068 




02C8 


2081 




02CA 


2206 





02CC 



219 


LNZB 


EQU 


*-1 


220 




ALIGH 


2 


221 


PDB 


DS 


32 


222 


DISBTE 


EQU 


* 


223 


* 






224 




NOSQZ 




225 


SPUHCH 


LB 


a6,X*7R' 


226 




DC 


S6,X*7B' 


227 




SSR 


E6,B0 


228 




BTBS 


S,1 


229 




BAL 


RF,STAPL 


230 




LHI 


B1,X'80' 


231 




LIS 


S2,1 


232 




LHI 


B3,X'CF' 


233 


SPHCHI 


WD 


a6,0(R1) 


234 




SSB 


R6,80 


235 




BTBS 


8,1 


236 




BXLE 


R1,$PNCH1 


237 




BAL 


EF,$TAPL1 


238 


* 






239 




IDA I 


B1,0BIGIN 


240 




LDAI 


83,LNZB 


241 


SPSCH2 


LB 


R5,0(R1) 


242 




UDR 


B6,a5 


243 




SSB 


R6,80 


244 




BTBS 


8,1 


245 




BXLE 


B1,$PHCH2 


246 




BAL 


BF,3IAPL 


247 




LHI 


B1,X*80' 


248 




EXBH 


81,81 


249 




EPSR 


R0,B1 


250 




DCX 


2200 


251 


* CHKSUM/H17 


PUNCHES 


252 


* 






253 


* 






254 


$TAPL 


LHI 


R0,256 


255 




BS 


STAPLP 


256 


• 






257 


STAPLI 


LHI 


30,128 


258 


* 






25 9 


STSPLP 


SIS 


R0,1 


260 




BHPR 


8F 


261 




LIS 


B3,0 


262 




»DR 


86,83 


253 




ssa 


B6,aa 


264 




BTBS 


3,1 


265 




BS 


STAPLP 


266 


* 






267 




EMD 





GET BOUTDV (PONCH) ADDRESS. 
STABT TAPE PUHCH 



PUNCH LEA-DEB 
LOAD STABT 



PUNCH BOOT LOADEB 

PUNCH ONE-FOLD GAP- 
(NORMALLY X'AOO*) 
PUNCH PBOGBAS 

PUNCH TBAILEE. 

HALT PBOCESSOB. 
) 

TO PUNCH BLANK LEADER 

TO PUNCH 1-FOLD GAP+ 

RETURN 

PUNCH BLANK FBA?!E 

CONTINUE. 



HDL02190 
HDL02200 
HDL02210 
MDL02220 
HDL0223O 
nDL02240 
HDL02250 
f1DL02260 
HDL02270 
MDL02280 
MDL02290 
MDL02300 
MDL02310 
MDL02320 
BDL02330 
MDL02340 
(1DL02350 
HDL02360 
HDL02 370 
aDL02380 
aDL02390 
HDL02400 
liDL02410 
SDL02420 
HDL02430 
HDL02440 
MDL02450 
HDL02460 
HDL02470 
SDL02480 
KDL02490 
flDLO2500 
11DL02510 
HDL02520 
flDL02530 
BDL02540 
BDL02550 
MDL02560 
MDL02570 
«DL02580 
KDL02590 
: SDL02600 
MDL02610 
MDL02620 
HDL026 30 
"1DL02640 
I1DL02650 
HDL02660 
MDL02670 
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ASSEMBLED BY CAL O3-O66B07-0O 



(32-BIT) 



START OPTICNS: T=16,EHIST 



HO CAL 


ERRORS 




NO CAL 


HARSINGS 


5 PASSES 




SPNCH1 


0000 


0280 


SPNCH2 


0000 


0293 


SPUNCH 


QOOO 


0266 


STAPL 


0000 


02B4 


STAPL1 


0000 


023A 


STAPLP 


0000 


02BE 


ABSTOP 


0000 


02CC 


ADC 


0000 


0002 


BOOT 


0000 


00B8 


CKLP 


0000 


018C 


C0NT1 


0000 


0182 


C0HT1A 


0000 


0176 


C0MT1B 


0000 


0184 


DISBT 


0000 


0100 


DISBTE 


0000 


0266 


FBSKH 


0000 


0200 


GOOBYT 


0000 


00A2 


HERE 


0000 


013A 


IHPTOP 


0000 


OOOOH 


LADC 


0000 


0001 


LD16 


0000 


oiait 


LEADER 


0000 


0098 


LEADEX 


0000 


OOBO 


LNZB 


0000 


0245 


HSM 


0000 


020A 


0RIGIN1 


0000 


0100 


PDB 


0000 


0246 


PURETOP 


0000 


oooos 


BO 


0000 


0000 


R1 


0000 


0001 


R2 


0000 


0002 


B3 


0000 


0003 


EU 


0000 


0004 


B5 


0000 


0005 


R6 


0000 


0006 


E7 


0000 


0007 


R8 


0000 


0008 


R9 


0000 


00 9 


BA 


0000 


OOOA 


BB 


0000 


OOOB 


SG 


0000 


OOOC 



233* 


236 
























241* 


245 
























225* 


























229 


246 


254* 






















237 


257* 
























255 


259* 


265 






















30 


33* 
























140* 


144 


145 






















124 


129 


133* 






















122 


128* 
























127 


132 


134* 






















35 


86* 
























35 


222* 
























96 


99 


171 


177 


187 


190* 


199 


202 


206 










42* 


49 
























159* 


159 
























109 


111* 
























37* 


45 


48 






















41 


47* 
























219* 


240 
























167 


196* 
























85* 


239 
























111 


112 


113 


116 


118 


120 


146 


164 


165 


221* 








12* 


183 


191 


193 


227 


234 


243 


249 


254 


257 


259 






13* 


37 


89 


91 


178 


179 


182 


183 


186 


212 


213 


217 


230 


233 


235 


239 


24 1 


245 


247 


248 


248 


249 










14* 


29 


33 


92 


98 


168 


170 


193 


196 


198 


201 


203 


20 5 


231 


























15* 


93 


95 


176 


180 


191 


207 


211 


215 


232 


240 


261 


252 


16* 


36 


37 


39 


88 


90 


91 


94 


95 


97 


98 


169 


170 


172 


130 


181 


182 


185 


186 


197 


198 


200 


201 


204 


20 5 


214 


215 


216 


217 






















17* 


34 


42 


43 


44 


47 


115 


119 


138 


148 


164 


173 


212 


241 


242 
























13* 


35 


44 


118 


119 


120 


143 


165 


179 


213 


225 


226 


227 


233 


23U 


2 42 


243 


262 


263 
















19* 


101 


111 


123 


126 


128 


131 


133 


175 


207 








20* 


102 


112 


168 


196 


210 


263 














21* 


103 


113 


125 


130 


173 


20 3 


208 












22* 


39 


40 


40 


42 


106 


110 


111 


112 


113 








23* 


100 


121 


166 




















24* 


146 


147 


173 


175 


176 


208 


210 


211 
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BD 


0000 


OOOD 


25* 


87 


88 


138 


140 


142 


143 


150 


152 


154 


156 


158 


SE 


0000 


OOOE 


26* 
138 


104 


107 


108 


108 


114 


134 


140 


141 


155 


155 


156 


READ 


0000 


OlflE 


loa 


114 


164* 




















SEAD1 


0000 


01C6 


134 


166* 






















EEADIB 


0000 


1F2 


18 3* 


216 






















BF 


0000 


OOOF 


27* 


96 


99 


139 


139 


141 


147 


151 


152 


153 


154 


157 








177 


187 


195 


199 


202 


205 


229 


237 


246 


260 






SOD 


0000 


01BC 


102 


161* 






















HT300T 


0000 


009II 


36* 

























153 



171 



/^eui Mnob 
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D 
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MANUAL UPDATE PACKAGE COVER SHEET 
THIS PACKAGE UPDATES THE 1 OLLOWING PUBLICATIONS 



PUB. 
NO. 


OLD 
REV. 


NEW 
REV. 


TITLE 


B06-176F01 


R02 


R03 


Multimedia Diagnostic Loader (16 Bit) 



This revision includes changes reflecting; 

ECNs 4223 

SCNs 

Briefly, the changes are as follows: 
This Package Consists of: 



This Instruction Sheet 



New Title Sheet 



Sheets i, ii, iii/iv R03 Supplementary Loading Information 



f^b97 



Program Number B06-176F01M99R03I 



MULTI- MEDIA 

DIAGNOSTIC LOADER 

(16 BIT) 



Comsists of: 



Program Description B06-176M95R02A15 
Program Listing 06-176F01M96R02A13 

Program Listing 06-178F03IVI96R02A13 

Boostrap Loader Tape 06-176F03IVI17R02 

OS/16 Bootstrap Loader Tape 03-098IVI17 

R03 Suppfementary Loading Information Slieets i. ii, iii/iw 



PERKIN ELMER 



Computer Systems Division 

2 Crescent Place 
Oceanport.N J.07757 
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R03 SUPPLEMENTARY LOADING INFORMATION 
FOR TEST PROGRAM 06-176F01 



The 06-250M67 Multimedia disk pack is built in such a way as to 
be boot-loadable using the Automatic Load Option (ALO) or the 
Loader Storage Unit (LSU) . This capability can be used on 16- 
bit or 32-bit systems. The following paragraphs describe the 
procedures. In all cases, the multimedia disk pack must be 
mounted and hardware write protected. 

On Processors With Displays 



• Set up low 


memory as 


though yoi 


Location 


Contents 


0030 




0000 


0032 




0000 


0034 




0000 


0036 




0050 


0050 




D500 


0052 




OOCF 


0054 




4300 


0056 




0080 


0078 




1399 


007A 




C633 


007C 




B6F0 


007E 




0111 



Autoload instruction 



Paper tape device number/command 
Disk address and O.S. device code 
Controller address and SELCH address 
O.S. extension (.111 means MMD) 

• If the system does not have an LSU or ALO, mount the O.S. boot 
load paper tape (03-074M17 for 3 2 -bit systems or 03-098M17 for 
16-bit systems) in the paper tape reader. Select address X'30' 
and execute. If the system does have an LSU or ALO, only 
locations X'7A', X'7C', and X'7E' need be set up. Enable the 
LSU/ALO and press initialize. 

• As soon as the Initial Program Load (IPL)- is complete, X'FFFF' 
will appear on the display panel. Disable the LSU/ALO and proceed 
as with normal MMD. 
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R03 SUPPLEMENTARY LOADING INFORMATION (Continued) 



On Processors Without Display (1620, etc.) 

• Enable the IPL and depress initialize. Observe that the 
following is output to the system console: 

Non-Extended Memory or Extended Memory 

' ! 
BASIC TEST COMPLETE BASIC TEST COMPLETE 
MEMORY OK MEMORY 00000-07FFF OK 

MEMORY 08000-OFFFF OK 



SERIES SIXTEEN CPUnnKB where nnKB is the memorysize. 
LOAD DSC1.002? 

• Type the letter 'N' on the system console. N means no. 

• The system then responds with available devices 

LOAD DEVICES 
DSC2 OK 
DSCl OK 



ENTER DEVN.OSID 

• Enter the following: 

DSCl. Ill 

• The following should be output: 

MMDL- INPUT SEQUENCE NUMBER 

# Memory locations X'7A' through X'7E' have been set up by 
the IPL sequence with default values for the 10 MB removable 
platter. If necessary, modify these locations and re-execute 
from address X'4000'. 

# Proceed as with normal MMD. 



ii B06-176F01 R03 1/80 



R03 SUPPLEMENTARY LOADING INFORMATION (Continued) 

On Processors Without Display (3200, etc.) 

• Enable the IPL and depress initialize. Observe that the following 
is output to the system console: 

3200 LSU LOADER ROO-00 

DEVS 

MG85 

MGC5 

DS5R 

DS5F 

DS67 

D256 

FLPY 

OTHR 

DEVICE= 

• If the system has default addresses, enter "DS5R" , otherwise, 
enter "OTHR" and the applicable addresses. For example: 

DEVICE = OTHR 
DEV# = C6 
CODE =33 
CTLR = B6 
SLCH = FO 

• The following should be output: 

VOL = MMD,FILE = 

• Enter: 

OS32MDL2.111 

• The following should be output: 

MMDL- INPUT SEQUENCE NUMBER 

• Memory locations X'7A' through X'7E' have been set up by the 

IPL sequence with default values for the 10 MB removable platter. 
If necessary, modify these locations and re-execute from address 
X'6000'. 

« Proceed as with normal MMD. 
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